Added test case from Issue justinethier#162

Author: justinethier

tests/162.sld

@@ -0,0 +1,12 @@
+(define-library (162)
+  (export foo)
+  (import (scheme base))
+  (begin
+    (define-syntax bar
+      (syntax-rules ()
+        ((_)
+         'baz)))
+    (define-syntax foo
+      (syntax-rules ()
+        ((_)
+         (bar))))))

tests/t-macro.scm

@@ -504,5 +504,7 @@
 (assert/equal (foo A) "A or B or C")
 ; END 163
 
+(import (162))
+(assert/equal (foo) 'baz)
 
 (unit-test-handler-results)