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

compound-unit: tag alone not allowed for link/export

Browse Source 
original commit: 361b0ebc84f881adb4c68c5111c07cbe9f05e699
This commit is contained in:
Matthew Flatt 1998-03-10 18:01:42 +00:00
parent b6c6bf4f15
commit aef6468dd9
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -58,8 +58,14 @@
(syntax-test '(unit (import i) (export (a x) b) (define x 5) (define b 6))) (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 (a x) b) (set! a 5) (define b 6)))
(syntax-test '(compound-unit (import) (link (A (0 (A)))) (export))) ; self-import ; No identifiers in link/export:
(syntax-test '(compound-unit (import) (link (A (0 (A x)))) (export))) ; self-import (syntax-test '(compound-unit (import) (link (A (0 (A)))) (export)))
(syntax-test '(compound-unit (import) (link (A (0))) (export (A))))
(syntax-test '(compound-unit (import) (link (A (0 (B))) (B (0))) (export)))
(syntax-test '(compound-unit (import) (link (A (0)) (B (0))) (export (A x) (B))))
; Self-import:
(syntax-test '(compound-unit (import) (link (A (0 (A x)))) (export)))
(unless (defined? 'test-global-var) (unless (defined? 'test-global-var)
(define test-global-var 5) (define test-global-var 5)