Light cleanup
This commit is contained in:
parent
b7d49cbf5d
commit
52f357765d
|
@ -62,13 +62,9 @@
|
||||||
|
|
||||||
::ast/tuple (match-tuple pattern value ctx-atom)
|
::ast/tuple (match-tuple pattern value ctx-atom)
|
||||||
|
|
||||||
(do
|
(throw (ex-info "Unknown pattern" {:pattern pattern})))))
|
||||||
(println "ERROR! Unexpected pattern:")
|
|
||||||
(pp/pprint pattern)))))
|
|
||||||
|
|
||||||
(defn- update-ctx [ctx new-ctx]
|
(defn- update-ctx [ctx new-ctx]
|
||||||
(println "Adding to context:")
|
|
||||||
(pp/pprint new-ctx)
|
|
||||||
(merge ctx new-ctx))
|
(merge ctx new-ctx))
|
||||||
|
|
||||||
;; TODO: get "if let" pattern working
|
;; TODO: get "if let" pattern working
|
||||||
|
@ -238,9 +234,7 @@
|
||||||
(let [members (:members ast)]
|
(let [members (:members ast)]
|
||||||
(into {} (map-values #(interpret % ctx)) members))
|
(into {} (map-values #(interpret % ctx)) members))
|
||||||
|
|
||||||
(do
|
(throw (ex-info "Unknown AST node type" {:node ast}))))
|
||||||
(println "ERROR! Unexpected AST node:")
|
|
||||||
(pp/pprint ast))))
|
|
||||||
|
|
||||||
(do
|
(do
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user