summaryrefslogtreecommitdiff
path: root/src/guile/skribe/debug.scm
diff options
context:
space:
mode:
authorLudovic Court`es2005-06-16 14:03:52 +0000
committerLudovic Court`es2005-06-16 14:03:52 +0000
commitc323ee2c0207a02d8af1d0366fdf000f051fdb27 (patch)
treed2c851d70aa5793d014ae1e05fca0b40a807a973 /src/guile/skribe/debug.scm
parentccc7e34619661c676b8169c3d88360f070b49b51 (diff)
downloadskribilo-c323ee2c0207a02d8af1d0366fdf000f051fdb27.tar.gz
skribilo-c323ee2c0207a02d8af1d0366fdf000f051fdb27.tar.lz
skribilo-c323ee2c0207a02d8af1d0366fdf000f051fdb27.zip
One step further with the Guile port.
* src/guile/skribilo.scm: Use `getopt-long'; include all the necessary modules that user-visible macros depend on. Use `read-hash-extend' to allow for DSSSL-style keywords, as needed by Skribe modules. * src/guile/skribe/debug.scm: Export `with-debug' and `%with-debug'. * src/guile/skribe/lib.scm (new): Fixed. (define-markup): Fixed (more the `rest' argument to the end). git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-5
Diffstat (limited to 'src/guile/skribe/debug.scm')
-rw-r--r--src/guile/skribe/debug.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/guile/skribe/debug.scm b/src/guile/skribe/debug.scm
index 01f88c2..e2bff27 100644
--- a/src/guile/skribe/debug.scm
+++ b/src/guile/skribe/debug.scm
@@ -25,7 +25,8 @@
(define-module (skribe debug)
- :export (debug-item skribe-debug set-skribe-debug! add-skribe-debug-symbol
+ :export (with-debug %with-debug
+ debug-item skribe-debug set-skribe-debug! add-skribe-debug-symbol
no-debug-color))
(define *skribe-debug* 0)
@@ -138,7 +139,7 @@
r)))
(define-macro (with-debug level label . body)
- `((in-module SKRIBE-DEBUG-MODULE %with-debug) ,level ,label (lambda () ,@body)))
+ `(%with-debug ,level ,label (lambda () ,@body)))
;;(define-macro (with-debug level label . body)
;; `(begin ,@body))