From 768cdbb4f3b3c0350c6c9e498eb7e095977c593d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 14 May 1998 17:22:16 +0000
Subject: [PATCH] added test for invoke-unit[/sig] linking in a lexical
 variable

original commit: 474083b3a70fbee56fc05339515e7491c4cf2370
---
 collects/tests/mzscheme/unit.ss    | 9 +++++++++
 collects/tests/mzscheme/unitsig.ss | 8 ++++++++
 2 files changed, 17 insertions(+)

diff --git a/collects/tests/mzscheme/unit.ss b/collects/tests/mzscheme/unit.ss
index 7a05217..c42e418 100644
--- a/collects/tests/mzscheme/unit.ss
+++ b/collects/tests/mzscheme/unit.ss
@@ -443,4 +443,13 @@
 		(export)
 		(let () (define define-values 10) define-values)))
 
+;; Invoke-unit linking in let-baound variables
+(test '(the-x 10) 'invoke 
+      (let ([x 'the-x])
+	(invoke-unit
+	 (unit (import w) (export)
+	       (list w 10))
+	 x)))
+
+
 (report-errs)
diff --git a/collects/tests/mzscheme/unitsig.ss b/collects/tests/mzscheme/unitsig.ss
index 1c40ff3..3956e5c 100644
--- a/collects/tests/mzscheme/unitsig.ss
+++ b/collects/tests/mzscheme/unitsig.ss
@@ -478,5 +478,13 @@
 		     (import (define-values))
 		     (let () (define define-values 10) define-values)))
 
+;; Invoke-unit linking in let-baound variables
+(test '(the-x 10) 'invoke/sig 
+      (let ([x 'the-x])
+	(invoke-unit/sig
+	 (unit/sig () (import (x))
+		   (list x 10))
+	 (x))))
+
 (report-errs)