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

.

Browse Source 
original commit: 5a7f1d770c173d1eb0545cd710fcca4246dab836
This commit is contained in:
Matthew Flatt 1998-08-15 22:34:46 +00:00
parent 8257c4306a
commit 6ee80914a7
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -71,10 +71,8 @@
(syntax-test '(compound-unit (import) (link (A (0 (A x)))) (export)))
(unless (defined? 'test-global-var)
(define test-global-var 5)
(syntax-test '(unit (import) (export) test-global-var))
(constant-name 'test-global-var)
(syntax-test '(unit (import) (export) test-global-var)))
(define test-global-var 5)
(syntax-test '(unit (import) (export) test-global-var)))
(test #t unit? (unit (import) (export)))
(test #t unit? (unit (import) (export) 5))
@ -393,7 +391,7 @@
(test #t unit? u2)
(test 3 'invoke (invoke-unit u2))
(test (letrec* ([x y][y 0]) x) 'invoke
(test (letrec ([x y][y 0]) x) 'invoke
(invoke-unit (unit (import) (export) (define x y) (define y 7) x)))
; Can't shadow syntax/macros in unit