From 0fe85cf2edfa5b496eefadc6aaa3473e3dc5e87c Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Sat, 20 May 2023 14:20:23 -0400 Subject: [PATCH] Remove repl cruft --- src/ludus/grammar.clj | 43 +------------------------------------------ 1 file changed, 1 insertion(+), 42 deletions(-) diff --git a/src/ludus/grammar.clj b/src/ludus/grammar.clj index 2a10612..eafaa33 100644 --- a/src/ludus/grammar.clj +++ b/src/ludus/grammar.clj @@ -255,45 +255,4 @@ (def script (order-0 :script [nls? (one+ script-line) - (quiet :eof)])) - - -;;;;;;;;;;;;;;;; REPL CRUFT - -;;TODO: fix forward declaration errors - - -(def eg (:tokens (scan/scan - " - test \"foo\" bar - " - ))) - - - -(def result (apply-parser script eg)) - - -(defn report [node] - (when (fail? node) (err-msg node)) - node) - -(defn clean [node] - (if (map? node) - (-> node - (report) - (dissoc - :status - :remaining - :token) - (update :data #(into [] (map clean) %))) - node)) - -(defn tap [x] (println "\n\n\n\n******NEW PARSE\n\n:::=> " x "\n\n") x) - -(def my-data (-> result - clean - tap - )) - -my-data \ No newline at end of file + (quiet :eof)])) \ No newline at end of file