From fe89d62417be96f0c8d2b864423bc891f149e54f Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 29 Jul 2023 08:42:30 -0700
Subject: recursive parse in calc example

---
 examples/calc.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'examples')

diff --git a/examples/calc.lisp b/examples/calc.lisp
index 14b03e5..87993e8 100644
--- a/examples/calc.lisp
+++ b/examples/calc.lisp
@@ -7,11 +7,15 @@
 
 (deflanguage calc (:documentation "A calculator language")
   (<calc> :-> (:or
+               (:seq <subexpr> (:eof))
                (:seq <value> (:eof))
                (:seq <unop> (:eof))
                (:seq <binop> (:eof)))
           :=> car)
-  (<expr>  :-> (:or <value> <unop> <binop>))
+  (<expr>  :-> (:or <subexpr> <value> <unop> <binop>))
+  (<subexpr> :-> (:item)
+             :?? listp
+             :=> (argot:parse calc <subexpr> ))
   (<value> :-> (:item) :?? numberp)
   (<binop> :-> (:seq (:@ lhs <expr>)
                      (:@ rhs (:+ (:seq (:or= + - / * ^ %) <expr>))))
-- 
cgit v1.2.3