changed doc convention for optionals

2 files changed, 2 insertions, 3 deletions

diff --git a/argot.lisp b/argot.lisp
index 3a077f0..8ab90ba 100644
--- a/argot.lisp
+++ b/argot.lisp
@@ -147,7 +147,7 @@ and it returns VAR in that case."
                  (princ "(A|B|...)  One of the alternavites a b ...") (terpri)
                  (princ "PATTERN+   One or more PATTERN") (terpri)
                  (princ "PATTERN*   Zero or more PATTERN") (terpri)
-                 (princ "[OPT]      Zero or one of OPT"))))
+                 (princ "OPT?       Zero or one of OPT"))))
        `(progn
           (setf (get ',name 'argot::grammar-property)
                 (make-instance 'grammar
diff --git a/docgen.lisp b/docgen.lisp
index 4475576..db69cf7 100644
--- a/docgen.lisp
+++ b/docgen.lisp
@@ -17,9 +17,8 @@
               (princ " " ))))
 
 (defun write-optional-doc (arg)
-  (princ "[")
   (write-pattern-doc arg)
-  (princ "]"))
+  (princ "?"))
 
 (defun write-kleene-doc (arg)
   (write-pattern-doc arg)