suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

embedded define tests (not allowed in if, currently), let/ec test, simplify-path

Browse Source 
original commit: d82642612630dbacd27fb03a32f43a86f5234324
This commit is contained in:
Matthew Flatt 1998-04-04 04:44:18 +00:00
parent 1aa98e5fc9
commit 0d60a4f792
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/mzscheme/unit.ss
View File

@ -58,6 +58,9 @@
(syntax-test '(unit (import i) (export (a x) b) (define x 5) (define b 6)))
(syntax-test '(unit (import i) (export (a x) b) (set! a 5) (define b 6)))
(syntax-test '(unit (import i) (export) (set! g 5)))
(syntax-test '(unit (import i) (export) (set! i 5)))
; Empty exports are syntactically ok::
(error-test '(compound-unit (import) (link (A (0))) (export (A))) exn:unit:non-unit?)
(error-test '(compound-unit (import) (link (A (0 (B))) (B (0))) (export)) exn:unit:non-unit?)