From 52f357765d602760bd418aa7611bb7f8a47cb43a Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Sun, 20 Mar 2022 19:39:01 -0400 Subject: [PATCH] Light cleanup --- src/ludus/interpreter.clj | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/src/ludus/interpreter.clj b/src/ludus/interpreter.clj index d6b1900..796e2e0 100644 --- a/src/ludus/interpreter.clj +++ b/src/ludus/interpreter.clj @@ -62,13 +62,9 @@ ::ast/tuple (match-tuple pattern value ctx-atom) - (do - (println "ERROR! Unexpected pattern:") - (pp/pprint pattern))))) + (throw (ex-info "Unknown pattern" {:pattern pattern}))))) (defn- update-ctx [ctx new-ctx] - (println "Adding to context:") - (pp/pprint new-ctx) (merge ctx new-ctx)) ;; TODO: get "if let" pattern working @@ -238,9 +234,7 @@ (let [members (:members ast)] (into {} (map-values #(interpret % ctx)) members)) - (do - (println "ERROR! Unexpected AST node:") - (pp/pprint ast)))) + (throw (ex-info "Unknown AST node type" {:node ast})))) (do