expand2

test/old_test.clj

@@ -1,16 +1,16 @@
-(ns expand-test
+(ns old-test
   (:require
    [clojure.core.match :refer [match]]
    [clojure.spec.alpha :as s]
    [clojure.test :as t]
-   [expand :as sut]))
+   [old :as sut]))
 
 (t/deftest scheme-base-test
   (t/is (s/valid? ::sut/environment (:env sut/scheme-base)))
   (t/is (s/valid? ::sut/symtable (:symtable sut/scheme-base))))
 
 (t/deftest nearest-test
-  (t/is (= [:primitive 'lambda]
+  #_(t/is (= [:primitive 'lambda]
            (sut/lookup ['lambda #{}]
                        sut/scheme-base-env
                        (sut/symtable-for-env sut/scheme-base-env))))