From 0d60a4f792be5c4e5468482f23250a12acd88d12 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 4 Apr 1998 04:44:18 +0000 Subject: [PATCH] embedded define tests (not allowed in if, currently), let/ec test, simplify-path original commit: d82642612630dbacd27fb03a32f43a86f5234324 --- collects/tests/mzscheme/unit.ss | 3 +++ 1 file changed, 3 insertions(+) diff --git a/collects/tests/mzscheme/unit.ss b/collects/tests/mzscheme/unit.ss index cb3d6db..7a05217 100644 --- a/collects/tests/mzscheme/unit.ss +++ b/collects/tests/mzscheme/unit.ss @@ -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?)