18 lines
458 B
Racket
18 lines
458 B
Racket
|
#lang typed/syndicate/roles
|
|||
|
|
|
|||
|
|
(require rackunit/turnstile)
|
|||
|
|
|
|||
|
|
(define (∀ (ρ) (assert-something! [p : (proc → ★/t #:endpoints (ρ))]))
|
|||
|
|
(p))
|
|||
|
|
|
|||
|
|
(define (test-fun)
|
|||
|
|
(call/inst assert-something! (lambda () (assert 5))))
|
|||
|
|
|
|||
|
|
|
|||
|
|
(check-type test-fun : (proc → ★/t #:endpoints ((Shares Int))))
|
|||
|
|
|
|||
|
|
(define (test-call/inst-insertion)
|
|||
|
|
(assert-something! (lambda () (assert 5))))
|
|||
|
|
|
|||
|
|
(check-type test-call/inst-insertion : (proc → ★/t #:endpoints ((Shares Int))))
|