fix tests }:)

test/expand_test.clj

@@ -43,12 +43,15 @@
   (t/testing "simple data"
     (t/is (= 'a (s/conform ::patern 'a)))))
 
+(defn- us-expand [datum]
+  (sut/unscope (sut/expand datum)))
+
 (t/deftest expand-test
   (t/testing "unbound symbol"
     (t/is (thrown? Exception (sut/expand 'x))))
   (t/testing "lambda"
     (t/is (= '(lambda (x) x)
-             (sut/expand '(λ (x) x)))))
+             (us-expand '(λ (x) x)))))
   #_(t/testing "syntax-rules"
     (t/is (= '(lambda (x) x)
              (sut/expand
@@ -59,13 +62,13 @@
     (t/is (= '(let ((x 123)
                     (y 456))
                 (+ x y))
-             (sut/expand
+             (us-expand
               '(let ((x 123)
                      (y 456))
                  (+ x y))))))
   (t/testing "application"
     (t/is (= '(lambda (f x) (f x))
-             (sut/expand '(lambda (f x) (f x)))))))
+             (us-expand '(lambda (f x) (f x)))))))
 
 (t/deftest prim-lambda-spec
   (t/is (s/valid? ::sut/prim-lambda '(lambda (x) x)))