From c4897d65934b702d46b773cd497e865e18615afa Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Tue, 15 Aug 2023 06:59:09 -0700
Subject: forgot to update find-grammar after refactor

---
 grammars.lisp | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'grammars.lisp')

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)
-- 
cgit v1.2.3