23 lines
740 B
Racket
23 lines
740 B
Racket
|
#lang typed/syndicate
|
||
|
|
||
|
(require rackunit/turnstile)
|
||
|
|
||
|
(typecheck-fail (spawn ⊥
|
||
|
(start-facet x
|
||
|
(on (asserted $x:Int)
|
||
|
#f)))
|
||
|
#:with-msg "overly broad interest")
|
||
|
|
||
|
(typecheck-fail (spawn ⊥
|
||
|
(start-facet x
|
||
|
(on (asserted (observe $x:Int))
|
||
|
#f)))
|
||
|
#:with-msg "overly broad interest")
|
||
|
|
||
|
;; TODO - but this one seems fine?
|
||
|
(typecheck-fail (spawn ⊥
|
||
|
(start-facet x
|
||
|
(on (asserted _)
|
||
|
#f)))
|
||
|
#:with-msg "overly broad interest")
|