aboutsummaryrefslogtreecommitdiff
path: root/src/guile/skribilo.scm
diff options
context:
space:
mode:
authorLudovic Courtes2006-03-07 23:02:01 +0000
committerLudovic Courtes2006-03-07 23:02:01 +0000
commit1dcb0d05955a40d784455ec73dcf1552a07c5126 (patch)
tree73b6ee4f648316b93cba740d4fc5b51474104f8f /src/guile/skribilo.scm
parent37105ac9d8dac73a04b2fc542d3a94340964781d (diff)
parent86c7ef726434b31b78570bf80db3cdecf8b84ca3 (diff)
downloadskribilo-1dcb0d05955a40d784455ec73dcf1552a07c5126.tar.gz
skribilo-1dcb0d05955a40d784455ec73dcf1552a07c5126.tar.lz
skribilo-1dcb0d05955a40d784455ec73dcf1552a07c5126.zip
Partial rewrite of the debugging facilities (slightly slower).
Patches applied: * skribilo--devel--1.2 (patch 44) - Partial rewrite of the debugging facilities (slightly slower). git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-72
Diffstat (limited to 'src/guile/skribilo.scm')
-rw-r--r--src/guile/skribilo.scm5
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)))