diff options
| author | Ludovic Courtes | 2006-03-07 22:58:58 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2006-03-07 22:58:58 +0000 |
| commit | 86c7ef726434b31b78570bf80db3cdecf8b84ca3 (patch) | |
| tree | 73b6ee4f648316b93cba740d4fc5b51474104f8f /src/guile/skribilo.scm | |
| parent | faf5a61d584ccad016d5bb3d50ce515931e17897 (diff) | |
| download | skribilo-86c7ef726434b31b78570bf80db3cdecf8b84ca3.tar.gz skribilo-86c7ef726434b31b78570bf80db3cdecf8b84ca3.tar.lz skribilo-86c7ef726434b31b78570bf80db3cdecf8b84ca3.zip | |
Partial rewrite of the debugging facilities (slightly slower).
* src/guile/skribilo.scm (skribilo): Use the new debugging API.
* src/guile/skribilo/debug.scm: Use SRFI-39 parameter objects.
Moved legacy procedures to `compat.scm'.
* src/guile/skribilo/utils/compat.scm (set-skribe-debug!): New.
(no-debug-color): New.
(skribe-debug): New.
(add-skribe-debug-symbol): New.
git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-44
Diffstat (limited to 'src/guile/skribilo.scm')
| -rw-r--r-- | src/guile/skribilo.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/guile/skribilo.scm b/src/guile/skribilo.scm index f683080..dbaa368 100644 --- a/src/guile/skribilo.scm +++ b/src/guile/skribilo.scm @@ -413,9 +413,7 @@ Processes a Skribilo/Skribe source file and produces its output. ;; Parse the most important options. - (set-skribe-debug! (string->number debugging-level)) - - (if (> (skribe-debug) 4) + (if (> (*debug*) 4) (set! %load-hook (lambda (file) (format #t "~~ loading `~a'...~%" file)))) @@ -428,6 +426,7 @@ Processes a Skribilo/Skribe source file and produces its output. (append %load-path (*source-path*)))) (*image-path* (cons image-path (*image-path*))) + (*debug* (string->number debugging-level)) (*warning* (string->number warning-level)) (*verbose* (let ((v (option-ref options 'verbose 0))) |