From aef6468dd9b968e66f4b3cb07c6f3da52232b6e7 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 10 Mar 1998 18:01:42 +0000 Subject: [PATCH] compound-unit: tag alone not allowed for link/export original commit: 361b0ebc84f881adb4c68c5111c07cbe9f05e699 --- collects/tests/mzscheme/unit.ss | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/collects/tests/mzscheme/unit.ss b/collects/tests/mzscheme/unit.ss index 1cada27..72d9f17 100644 --- a/collects/tests/mzscheme/unit.ss +++ b/collects/tests/mzscheme/unit.ss @@ -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) (set! a 5) (define b 6))) -(syntax-test '(compound-unit (import) (link (A (0 (A)))) (export))) ; self-import -(syntax-test '(compound-unit (import) (link (A (0 (A x)))) (export))) ; self-import +; No identifiers in link/export: +(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) (define test-global-var 5)