twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

Remove debug pps

Browse Source
This commit is contained in:
Scott Richmond 2022-04-05 19:09:22 -04:00
parent 89f813c2f3
commit 0a34e22a98
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ludus/parser.clj
View File

@ -542,14 +542,9 @@
(let [first (advance parser)] (let [first (advance parser)]
(loop [parser first (loop [parser first
exprs []] exprs []]
(println "parsing do")
(pp/pprint parser)
(pp/pprint exprs)
(let [expr (parse-expr parser) (let [expr (parse-expr parser)
expr+newline (accept ::token/newline expr) expr+newline (accept ::token/newline expr)
next (token-type expr+newline)] next (token-type expr+newline)]
(println "current ast " (::ast expr))
(println "next token " next)
(if (= ::token/pipeline next) (if (= ::token/pipeline next)
(recur (advance expr+newline) (conj exprs (::ast expr))) (recur (advance expr+newline) (conj exprs (::ast expr)))
(assoc expr ::ast {::ast/type ::ast/pipeline (assoc expr ::ast {::ast/type ::ast/pipeline