a

resources/scm/scheme/base.scm

@@ -5,5 +5,5 @@
   (begin
     (define-syntax when
       (syntax-rules ()
-        ((_ test body)
-         (if test (begin body)))))))
+        ((_ test body ...)
+         (if test (begin body ...)))))))

src/expand/core.clj

@@ -411,7 +411,7 @@
     (-> (slurp *in*)
         (scm/read-syntax :library? true :throw? true)
         expand-library
-        library-syntax->datum
+        #_library-syntax->datum
         library->datum
         clojure.pprint/pprint)))
 

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))))))