.

original commit: 12785f6be7d738977e556ec413dcc69747b21123

collects/tests/mzscheme/binc.ss

@@ -0,0 +1,4 @@
+(begin
+ (define w x)
+ (define z w))
+(define y z)

collects/tests/mzscheme/unitsig.ss

@@ -200,6 +200,16 @@
 
 (test 10 'include (invoke-unit/sig i2@))
 
+;; Include with begin:
+
+(test 5 'include-begin
+      (invoke-unit/sig
+       (unit/sig ()
+	 (import)
+	 (define x 5)
+	 (include "binc.ss")
+	 y)))
+
 ; Simple:
 
 (define-signature m1^