fix regensym

test/expand_test.clj

@@ -85,7 +85,7 @@
     (t/is (= '(let (([x #{s0}] 123))
                 (let-syntax ((m (syntax-rules () ((m) x))))
                   (lambda ([x #{s1 s2 s0}])
-                          [x #{s0}])))
+                          [x #{s0 s3}])))
              (sut/rg-expand '(let ((x 123))
                                (let-syntax ((m (syntax-rules
                                                 ()