2021-04-22 16:04:06 +00:00
|
|
|
|
#lang typed/syndicate
|
2019-05-23 15:13:51 +00:00
|
|
|
|
|
|
|
|
|
(require rackunit/turnstile)
|
|
|
|
|
|
2022-08-11 23:46:25 +00:00
|
|
|
|
(define (∀ (ρ) (assert-something! [p : (proc → ★/t #:effects (ρ))]))
|
2019-05-23 15:13:51 +00:00
|
|
|
|
(p))
|
|
|
|
|
|
|
|
|
|
(define (test-fun)
|
|
|
|
|
(call/inst assert-something! (lambda () (assert 5))))
|
|
|
|
|
|
2022-09-01 15:06:24 +00:00
|
|
|
|
(check-type test-fun : (proc → ★/t #:effects ((Shares NonZero))))
|
2019-05-23 15:13:51 +00:00
|
|
|
|
|
|
|
|
|
(define (test-call/inst-insertion)
|
|
|
|
|
(assert-something! (lambda () (assert 5))))
|
|
|
|
|
|
2022-09-01 15:06:24 +00:00
|
|
|
|
(check-type test-call/inst-insertion : (proc → ★/t #:effects ((Shares NonZero))))
|
2022-08-11 23:46:25 +00:00
|
|
|
|
|
|
|
|
|
(define (∀ (ρ) (start-something! [p : (proc → ★/t #:effects (ρ))]))
|
|
|
|
|
(p))
|
|
|
|
|
|
|
|
|
|
(define (test-call-start-something)
|
|
|
|
|
(start-something! (lambda () (start-facet x (assert 5)))))
|