Add better grammar parsing for subexpressions

1 files changed, 2 insertions, 4 deletions

diff --git a/examples/calc.lisp b/examples/calc.lisp
index 4d8766a..d3140ee 100644
--- a/examples/calc.lisp
+++ b/examples/calc.lisp
@@ -6,7 +6,7 @@
 (in-package #:argot.examples.calc)
 
 (deflanguage calc (:documentation "A calculator language")
-  (<calc>
+  (<start>
    :match (:or
            (:seq <subexpr> (:eof))
            (:seq <value> (:eof))
@@ -16,9 +16,7 @@
   (<expr>
    :match (:or <subexpr> <value> <unop> <binop>))
   (<subexpr>
-   :match (:item)
-   :if listp
-   :then (argot:parse calc <subexpr>))
+   :match (:{} calc))
   (<value>
    :match (:item)
    :if numberp)