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

Add separate recur node

Browse Source
This commit is contained in:
Scott Richmond 2023-05-22 00:16:01 -04:00
parent 65692b611b
commit 3256565308
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ludus/grammar.clj
View File

@ -157,7 +157,9 @@
(zero+ arg-entry) (zero+ arg-entry)
(quiet :rparen)]))) (quiet :rparen)])))
(def synth-root (flat (choice :synth-root [:keyword :word :recur]))) (def recurr (group (order-1 :recur [(quiet :recur) tuple])))
(def synth-root (flat (choice :synth-root [:keyword :word])))
(def synth-term (flat (choice :synth-term [args :keyword]))) (def synth-term (flat (choice :synth-term [args :keyword])))
@ -190,13 +192,12 @@
(one+ block-line) (one+ block-line)
(quiet :rbrace)]))) (quiet :rbrace)])))
(def pipeline (order-0 :pipeline [nls? :pipeline])) (def pipeline (quiet (order-0 :pipeline [nls? :pipeline])))
(def do-entry (order-0 :do-entry [pipeline expression])) (def do-entry (order-1 :do-entry [pipeline expression]))
(def doo (group (order-1 :do [(quiet :do) (def doo (group (order-1 :do [(quiet :do)
expression expression
;; should this be zero+?
(one+ do-entry) (one+ do-entry)
]))) ])))
@ -230,6 +231,7 @@
spawn spawn
receive receive
synthetic synthetic
recurr
block block
doo doo
reff reff