added test for invoke-unit[/sig] linking in a lexical variable

original commit: 474083b3a70fbee56fc05339515e7491c4cf2370

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)

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)