From 7c0eafe23744f75e1b645a8f0ccbc5d4adb0d24f Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 24 Jan 2008 16:04:48 +0100 Subject: skribilo: Fix `--help' and `--preload'. * src/guile/skribilo.scm (skribilo-show-help): Fix `--debug'. (skribilo): Properly set the current module to USER-MODULE when loading preloads. --- src/guile/skribilo.scm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'src/guile') diff --git a/src/guile/skribilo.scm b/src/guile/skribilo.scm index 0578c9d..44e57e4 100644 --- a/src/guile/skribilo.scm +++ b/src/guile/skribilo.scm @@ -1,6 +1,6 @@ ;;; skribilo.scm -- The Skribilo document processor. ;;; -;;; Copyright 2005, 2006, 2007 Ludovic Courtès +;;; Copyright 2005, 2006, 2007, 2008 Ludovic Courtès ;;; Copyright 2003, 2004 Erick Gallesio - I3S-CNRS/ESSI ;;; ;;; @@ -82,7 +82,7 @@ specified reader syntax, and produce its output using the specified engine. -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 + -g, --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. @@ -319,6 +319,7 @@ options." (for-each (lambda (f) (save-module-excursion (lambda () + (set-current-module user-module) (load f)))) (or preloads '())) @@ -349,4 +350,9 @@ options." ;; Make sure the output port is flushed before we leave. (force-output (*skribilo-output-port*)))))) + +;;; Local Variables: +;;; coding: latin-1 +;;; End: + ;;; skribilo ends here. -- cgit v1.2.3