diff options
| -rw-r--r-- | argot.lisp | 2 | ||||
| -rw-r--r-- | docgen.lisp | 3 |
2 files changed, 2 insertions, 3 deletions
@@ -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) |