diff --git a/janet/validate.janet b/janet/validate.janet index 4480391..adc2917 100644 --- a/janet/validate.janet +++ b/janet/validate.janet @@ -622,33 +622,12 @@ Imports are for a later iteration of Ludus: (def validator (new-validator ast)) (validate validator)) -(do -# (comment +# (do +(comment (def source ` let "{foo}" = "bar" `) (def scanned (s/scan source)) (def parsed (p/parse scanned)) (valid parsed) -(print "VALIDATED!!") -(def grammar (get-in parsed [:ast :data 0 :data 0 :grammar])) -(pp grammar) -(peg/match grammar "foo")) - -(def bar @{ - :0 "" - :1 '(<- (to :2)) - :2 "" - :main '(sequence :0 :1 :2 -1) - }) - -(peg/match bar "foo") - -(def foo @{ - :0 "" - :1 '(<- (to :2)) - :2 -1 - :main '(sequence :0 :1 :2) -}) - -(peg/match foo "foooooooobar") +)