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

get the thing to run, anyway

Browse Source
This commit is contained in:
Scott Richmond 2024-04-06 19:12:44 -04:00
parent 83ce75c6ea
commit 2bc32c35f2
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
janet/myparser.janet
View File

@ -219,8 +219,8 @@ The idea, however, is that Jesus: we must not have test-rule and apply-rule: com
(var passing true) (var passing true)
(def origin (stash parser)) (def origin (stash parser))
(pprint origin) (pprint origin)
(def failing nil) (var failing nil)
(def passing true) (var passing true)
(loop [rule :in rules :while passing] (loop [rule :in rules :while passing]
(def pass? (apply-rule rule parser)) (def pass? (apply-rule rule parser))
(when (not pass?) (when (not pass?)
@ -384,4 +384,9 @@ if (:)foo then :bar else :baz
(-> (scan source) (parse if-expr) pprint) (-> (scan source) (parse if-expr) pprint)
) )
(comment
Okay, so I'm trying to figure out how to manage panics in this declarative (not recursive-descent) parser.
The question is how to
)