diff options
| author | colin <colin@cicadas.surf> | 2023-07-29 08:52:37 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2023-07-29 08:52:37 -0700 |
| commit | fbfa64ec69870d424d3f94bd87380efe565b64b5 (patch) | |
| tree | 23b12d6093a2b245487277a5bda0025623a2d2eb /argot.lisp | |
| parent | fe89d62417be96f0c8d2b864423bc891f149e54f (diff) | |
change language for rule def
Diffstat (limited to 'argot.lisp')
| -rw-r--r-- | argot.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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 () |