Fix on-line help showed by "skribilo --help".

* src/guile/skribilo.scm (skribilo-show-help): Update.
  (%options)[debug]: Deal with ARG == #f.

1 files changed, 31 insertions, 11 deletions

diff --git a/src/guile/skribilo.scm b/src/guile/skribilo.scm
index 0854fcb..0578c9d 100644
--- a/src/guile/skribilo.scm
+++ b/src/guile/skribilo.scm
@@ -61,16 +61,34 @@
 
 (define (skribilo-show-help)
   (format #t "Usage: skribilo [OPTIONS] [INPUT]
-
-Processes a Skribilo/Skribe source file and produces its output.
-
-  --reader=READER  Use READER to parse the input file (by default,
-                   the `skribe' reader is used)
-  --target=ENGINE  Use ENGINE as the underlying engine
-  --compat=COMPAT  Use COMPAT as the compatibility layer, e.g., \"skribe\"
-
-  --help           Give this help list
-  --version        Print program version
+Process Skribilo document from file INPUT (or the standard input) using the
+specified reader syntax, and produce its output using the specified engine.
+
+  -R, --reader=READER    Use READER to parse the input file, e.g., `skribe'
+                         (default) or `outline'.
+  -t, --target=ENGINE    Use ENGINE as the output engine, e.g., `html'.
+  -o, --output=FILE      Write output to FILE.
+      --compat=COMPAT    Use COMPAT as the compatibility layer, e.g., `skribe'.
+
+  -I, --doc-path=DIR     Prepend DIR to the document include path.
+  -B, --bib-path=DIR     Prepend DIR to the bibliography include path.
+  -S, --source-path=DIR  Prepend DIR to the source include path.
+  -P, --image-path=DIR   Prepend DIR to the image include path.
+
+  -b, --base=BASE        Strip BASE from all hyperlinks (`html' engine).
+  -e, --eval=EXPR        Prepend EXPR to the list of expressions to be
+                         evaluted before the input file is processed.
+  -p, --preload=FILE     Preload FILE before processing the input file.
+
+  -v, --verbose[=LEVEL]  Be verbose, unless LEVEL is 0.
+  -w, --warning[=LEVEL]  Issue warnings, unless LEVEL is 0.
+  -d, --debug[=ARG]      Issue debugging output, unless ARG is 0.  If ARG is
+                         not a number, it is interpreted as a symbol to be
+                         watched.
+      --no-color         Disable colored debugging output.
+
+  -h, --help             Give this help list
+  -V, --version          Print program version
 
 Report bugs to <~a>.~%"
           (skribilo-bug-report-address)))
@@ -194,7 +212,9 @@ Report bugs to <~a>.~%"
                 (make-level-processor :warning 1))
         (option '(#\g "debug") #f #t
                 (lambda (opt name arg result)
-                  (let ((num (string->number arg)))
+                  (let ((num (if arg
+                                 (string->number arg)
+                                 1)))
                     (if (integer? num)
                         (alist-cons :debug num result)
                         (let ((watched (assoc :watched-symbols result)))