From 0f42ae0e6d61e344e10604bc9b82f033fcdb91c9 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Tue, 8 Aug 2023 07:03:58 -0700
Subject: Added more documentation gen; deflangauge no longer uses defvar

---
 examples/calc.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'examples')

diff --git a/examples/calc.lisp b/examples/calc.lisp
index d3140ee..0a25a6b 100644
--- a/examples/calc.lisp
+++ b/examples/calc.lisp
@@ -16,10 +16,12 @@
   (<expr>
    :match (:or <subexpr> <value> <unop> <binop>))
   (<subexpr>
-   :match (:{} calc))
+   :match (:{} calc)
+   :doc "A subexpression, like (1 + 2 / cos(1.5))")
   (<value>
    :match (:item)
-   :if numberp)
+   :if numberp
+   :doc "A Number")
   (<binop>
    :match (:seq
             (:@ lhs <expr>)
-- 
cgit v1.2.3