Stub of let works.

This commit is contained in:
Scott Richmond 2022-02-15 13:24:09 -05:00
parent 6b61a10349
commit 531c85054c

View File

@ -246,6 +246,7 @@
expr (parse-expr equals) expr (parse-expr equals)
results (map #(get-in % [::ast ::ast/type]) [pattern equals expr]) results (map #(get-in % [::ast ::ast/type]) [pattern equals expr])
] ]
(println "!!!!!!!! let results")
(pp/pprint results) (pp/pprint results)
)) ))
@ -289,7 +290,7 @@
)))) ))))
(def source "{:foo}") (def source "let {1} = 12")
(def tokens (:tokens (scanner/scan source))) (def tokens (:tokens (scanner/scan source)))
@ -297,7 +298,7 @@
(pp/pprint p) (pp/pprint p)
(-> (parse-script p) (-> (parse-let p)
(::ast)) (::ast))
(comment " (comment "