floating define test
This commit is contained in:
parent
65d14de735
commit
9113d93acf
|
@ -0,0 +1,9 @@
|
||||||
|
#lang typed/syndicate/roles
|
||||||
|
|
||||||
|
(require rackunit/turnstile)
|
||||||
|
|
||||||
|
;; TODO - currently fails with a racket error. Is that OK?
|
||||||
|
;; (ideally, this would fail with a better error message)
|
||||||
|
(typecheck-fail
|
||||||
|
(let ([x (define y 5)])
|
||||||
|
(add1 1)))
|
Loading…
Reference in New Issue