a

t.scm

@@ -6,4 +6,9 @@
                           (if test (begin body ...))))))
       (when #t
         (display "blah")
-        (newline)))))
+        (newline)))
+    (let ((x 123))
+      (let-syntax ((m (syntax-rules ()
+                        ((_) x))))
+        (lambda (x)
+          (m))))))