diff options
| author | Ludovic Court`es | 2005-06-16 14:03:52 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2005-06-16 14:03:52 +0000 |
| commit | c323ee2c0207a02d8af1d0366fdf000f051fdb27 (patch) | |
| tree | d2c851d70aa5793d014ae1e05fca0b40a807a973 /src/guile/skribe/debug.scm | |
| parent | ccc7e34619661c676b8169c3d88360f070b49b51 (diff) | |
| download | skribilo-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.scm | 5 |
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)) |