From e8dfcee463d771c21c513dea4af30c5c51a2525e Mon Sep 17 00:00:00 2001 From: colin Date: Sat, 29 Jul 2023 09:19:39 -0700 Subject: more of the same --- argot.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'argot.lisp') diff --git a/argot.lisp b/argot.lisp index 99da9bd..4c1dfdc 100644 --- a/argot.lisp +++ b/argot.lisp @@ -72,23 +72,23 @@ and it returns VAR in that case." (defun parse-rule-def (ruledef) (handler-case (ematch ruledef - ((guard (list lhs :-> pattern) + ((guard (list lhs :match pattern) (and (nonterminal? lhs) (pattern? pattern))) (list lhs pattern (collect-vars pattern) nil nil)) - ((guard (list lhs :-> pattern :if check) + ((guard (list lhs :match pattern :if check) (and (nonterminal? lhs) (pattern? pattern))) (list lhs pattern (collect-vars pattern) check nil)) - ((guard (list lhs :-> pattern :then action) + ((guard (list lhs :match pattern :then action) (and (nonterminal? lhs) (pattern? pattern))) (list lhs pattern (collect-vars pattern) nil action)) - ((guard (list lhs :-> pattern :then action :if check) + ((guard (list lhs :match pattern :then action :if check) (and (nonterminal? lhs) (pattern? pattern))) (list lhs pattern (collect-vars pattern) check action)) - ((guard (list lhs :-> pattern :if check :then action) + ((guard (list lhs :match pattern :if check :then action) (and (nonterminal? lhs) (pattern? pattern))) (list lhs pattern (collect-vars pattern) check action))) (trivia::match-error () -- cgit v1.2.3