From 5cdf8f785d99d184bc8d47b4d5a7899696bf900d Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Wed, 19 Jul 2023 22:11:15 -0700
Subject: ignoreing unused vars in action lambdas

---
 argot.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'argot.lisp')

diff --git a/argot.lisp b/argot.lisp
index e47643b..5423fb1 100644
--- a/argot.lisp
+++ b/argot.lisp
@@ -92,7 +92,9 @@ and it returns VAR in that case."
                                          (funcall ,action ,lhs)))))
                      ((consp action)
                       (list :action `(lambda (,bindings-var)
-                                       (let ,bindings ,action))))))
+                                       (let ,bindings
+                                         (declare (ignore ,lhs))
+                                         ,action))))))
              (rule-includer (name lhs pattern &optional action bindings)
                `(include-rule
                  ,name
-- 
cgit v1.2.3