test/expand/scm_test.clj

@@ -11,6 +11,7 @@
     (t/is (= false (sut/read "#false"))))
   (t/testing "symbol"
     (t/is (= 'abc (sut/read "abc")))
+    (t/is (= '... (sut/read "...")))
     (t/is (= 'truth-nuke (sut/read "truth-nuke"))))
   (t/testing "list"
     (t/is (= (list) (sut/read "()")))

test/expand/syntax_rules_test.clj

@@ -127,4 +127,15 @@
   (t/is (= '(1 3 6)
            (sut/transcribe* '(x ...)
                             '((x _ ...) ...)
-                            '((1 2) (3 4 5) (6 7 8 9))))))
+                            '((1 2) (3 4 5) (6 7 8 9)))))
+  (t/testing "preservation of lexical context"
+    ;; 나는 테스트를 더 작성하고 싶지만 너무 귀찮을겠다…ㅠㅠ
+    (t/is (= '#{A}
+             (scm/syntax-context
+              (sut/transcribe
+               #scm/stx [(#scm/stx [x #{A}])
+                         #{A}]
+               (sut/unify #scm/stx [(#scm/stx [x #{A}])
+                                    #{A}]
+                          #scm/stx [(#scm/stx [123 #{A}])
+                                    #{A}])))))))