diff options
| author | colin <colin@cicadas.surf> | 2023-08-15 06:59:09 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2023-08-15 06:59:09 -0700 |
| commit | c4897d65934b702d46b773cd497e865e18615afa (patch) | |
| tree | 37631e31894b7086789b72a477cafce3c48ecdba | |
| parent | 6e2577dc66c2c6528f5e360ac83c383704ae11fc (diff) | |
forgot to update find-grammar after refactor
| -rw-r--r-- | grammars.lisp | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/grammars.lisp b/grammars.lisp index 54505b7..f8c99f6 100644 --- a/grammars.lisp +++ b/grammars.lisp @@ -73,7 +73,6 @@ (if ,successp ,success-clause ,fail-clause)))) - (defun parse-sequence (patterns) "Parse each member of PATTERNS and succeed with a list of results. If any pattern fails the whole parse fails." @@ -152,10 +151,7 @@ any pattern fails the whole parse fails." (defun find-grammar (name) (and (symbolp name) - (boundp name) - (let ((val (symbol-value name))) - (and (typep val 'grammar) - val)))) + (get name 'argot::grammar-property))) (defun parse-grammar-pattern (language) (if-parse (subtokens) (parse-item) |