test/expand_test.clj

@@ -92,7 +92,13 @@
                                                   ((m) x))))
                                    (λ (x)
                                       (m))))))
-            "`when` does not capture caller's scope"))))
+            "`when` does not capture caller's scope")
+      (t/is (= '(if 123 (begin (display "hello")
+                               (newline)))
+               (sut/us-expand '(when 123
+                                 (display "hello")
+                                 (newline))))
+            "`when` captures multiple"))))
 
 (t/deftest prim-lambda-spec
   (t/is (s/valid? ::sut/prim-lambda '(lambda (x) x)))