floating define test

This commit is contained in:
Sam Caldwell 2020-03-10 10:57:54 -04:00
parent 65d14de735
commit 9113d93acf
1 changed files with 9 additions and 0 deletions

View File

@ -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)))