From d8de91bc328fd9ab99095bd30a978a2d762f975c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 22 Aug 2000 02:42:52 +0000
Subject: [PATCH] .

original commit: 12785f6be7d738977e556ec413dcc69747b21123
---
 collects/tests/mzscheme/binc.ss    |  4 ++++
 collects/tests/mzscheme/unitsig.ss | 10 ++++++++++
 2 files changed, 14 insertions(+)
 create mode 100644 collects/tests/mzscheme/binc.ss

diff --git a/collects/tests/mzscheme/binc.ss b/collects/tests/mzscheme/binc.ss
new file mode 100644
index 0000000..9dd2939
--- /dev/null
+++ b/collects/tests/mzscheme/binc.ss
@@ -0,0 +1,4 @@
+(begin
+ (define w x)
+ (define z w))
+(define y z)
diff --git a/collects/tests/mzscheme/unitsig.ss b/collects/tests/mzscheme/unitsig.ss
index 5194e2c..b7de5d5 100644
--- a/collects/tests/mzscheme/unitsig.ss
+++ b/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^