From fbfa64ec69870d424d3f94bd87380efe565b64b5 Mon Sep 17 00:00:00 2001 From: colin Date: Sat, 29 Jul 2023 08:52:37 -0700 Subject: change language for rule def --- argot.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'argot.lisp') diff --git a/argot.lisp b/argot.lisp index e82ef95..99da9bd 100644 --- a/argot.lisp +++ b/argot.lisp @@ -76,19 +76,19 @@ and it returns VAR in that case." (and (nonterminal? lhs) (pattern? pattern))) (list lhs pattern (collect-vars pattern) nil nil)) - ((guard (list lhs :-> pattern :?? check) + ((guard (list lhs :-> pattern :if check) (and (nonterminal? lhs) (pattern? pattern))) (list lhs pattern (collect-vars pattern) check nil)) - ((guard (list lhs :-> pattern :=> action) + ((guard (list lhs :-> pattern :then action) (and (nonterminal? lhs) (pattern? pattern))) (list lhs pattern (collect-vars pattern) nil action)) - ((guard (list lhs :-> pattern :=> action :?? check) + ((guard (list lhs :-> pattern :then action :if check) (and (nonterminal? lhs) (pattern? pattern))) (list lhs pattern (collect-vars pattern) check action)) - ((guard (list lhs :-> pattern :?? check :=> action) + ((guard (list lhs :-> 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