From 85d4f9903080e879041a91a88d4d4f3e3b6792e5 Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Sat, 19 Mar 2022 12:30:05 -0400 Subject: [PATCH] Delete old/broken versions of let & if --- src/ludus/parser.clj | 28 ---------------------------- 1 file changed, 28 deletions(-) diff --git a/src/ludus/parser.clj b/src/ludus/parser.clj index 50df2a7..af4e7be 100644 --- a/src/ludus/parser.clj +++ b/src/ludus/parser.clj @@ -342,14 +342,6 @@ (parse-let-expr (:parser assignment) parser) (panic parser "Expected assignment")))) -(defn- parse-let [parser] - (let [pattern (parse-pattern (advance parser))] - (if (poisoned? pattern) - (panic (advance parser) "Expected pattern") - (parse-assignment pattern) - ) - )) - (defn- parse-let* [parser] (let [pattern (parse-pattern (advance parser))] (parse-assignment pattern))) @@ -382,26 +374,6 @@ (parse-then (accept ::token/newline ast)) )) -;; TODO: Fix failure case here -(defn- parse-if [parser] - (let [ - if-expr (parse-expr (advance parser) #{::token/then ::token/newline}) - then (expect ::token/then "Expected then" (accept ::token/newline if-expr)) - then-expr (parse-expr then) - else (expect ::token/else "Epected else" (accept ::token/newline then-expr)) - else-expr (parse-expr else #{::token/else ::token/newline}) - results (map #(get-in % [::ast ::ast/type]) [if-expr then then-expr else else-expr]) - ] - (if (some #(= ::ast/poison %) results) - (println ::ast/poison) ;; TODO: FIX THIS - (assoc else-expr ::ast { - ::ast/type ::ast/if - :if-expr (::ast if-expr) - :then-expr (::ast then-expr) - :else-expr (::ast else-expr) - })) - )) - (defn- parse-expr ([parser] (parse-expr parser sync-on)) ([parser sync-on] (let [token (current parser)]