From edec828f3ba1d8fb048b3a17c61803f836958f31 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Madeleine=20Sydney=20=C5=9Alaga?= Date: Sun, 20 Sep 2026 06:38:49 -0600 Subject: [PATCH] --- test/expand_test.clj | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/test/expand_test.clj b/test/expand_test.clj index 309f577..9937f17 100644 --- a/test/expand_test.clj +++ b/test/expand_test.clj @@ -81,17 +81,18 @@ 456)) (sut/rg-expand '(let ((body 123)) (when body 456)))) - "`when` is hygienic")) - (t/is (= '(let (([x #{s0}] 123)) - (let-syntax ((m (syntax-rules () ((m) x)))) - (lambda ([x #{s1 s2 s0}]) - [x #{s0 s3}]))) - (sut/rg-expand '(let ((x 123)) - (let-syntax ((m (syntax-rules - () - ((m) x)))) - (λ (x) - (m))))))))) + "`when` does not clobber caller's scope") + (t/is (= '(let (([x #{s0}] 123)) + (let-syntax ((m (syntax-rules () ((m) x)))) + (lambda ([x #{s1 s2 s0}]) + [x #{s0 s3}]))) + (sut/rg-expand '(let ((x 123)) + (let-syntax ((m (syntax-rules + () + ((m) x)))) + (λ (x) + (m)))))) + "`when` does not capture caller's scope")))) (t/deftest prim-lambda-spec (t/is (s/valid? ::sut/prim-lambda '(lambda (x) x)))