diff options
| -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) |