remove repl cruft

This commit is contained in:
Scott Richmond 2024-07-14 14:42:31 -04:00
parent a6c899a85f
commit d416511b48
2 changed files with 3 additions and 2 deletions

View File

@ -55,6 +55,7 @@
# (do # (do
# (def start (os/clock)) # (def start (os/clock))
(def source ` (def source `
doc! (add)
`) `)
(def out (-> source (def out (-> source
ludus ludus

View File

@ -1117,10 +1117,10 @@
# (do # (do
(comment (comment
(def source ` (def source `
let foo = :bar [...x]
`) `)
(def scanned (s/scan source)) (def scanned (s/scan source))
# (print "\n***NEW PARSE***\n") # (print "\n***NEW PARSE***\n")
(def a-parser (new-parser scanned)) (def a-parser (new-parser scanned))
(def parsed (lett a-parser)) (try (def parsed (pattern a-parser)) ([e] (pp e)))
) )