diff options
Diffstat (limited to 'src/interp/fnewmeta.lisp')
-rw-r--r-- | src/interp/fnewmeta.lisp | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/interp/fnewmeta.lisp b/src/interp/fnewmeta.lisp index 70fd040c..fd15745d 100644 --- a/src/interp/fnewmeta.lisp +++ b/src/interp/fnewmeta.lisp @@ -599,6 +599,16 @@ (CONS 'UNTIL (CONS (POP-STACK-1) NIL)))))) +(DEFUN |PARSE-Match| () + (AND (MATCH-ADVANCE-STRING "case") + (MUST (|PARSE-Expr| 400)) + (MATCH-ADVANCE-STRING "is") + (MUST (|PARSE-Expr| 110)) + (PUSH-REDUCTION '|PARSE-Match| + (CONS '|%Match| + (CONS (POP-STACK-2) + (CONS (POP-STACK-1) NIL)))))) + (DEFUN |PARSE-Expr| (RBP) (DECLARE (SPECIAL RBP)) (AND (|PARSE-NudPart| RBP) |