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)
(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])))
@ -190,13 +192,12 @@
(one+ block-line)
(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)
expression
;; should this be zero+?
(one+ do-entry)
])))
@ -230,6 +231,7 @@
spawn
receive
synthetic
recurr
block
doo
reff