diff options
| author | Ludovic Courtes | 2005-07-02 03:51:27 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2005-07-02 03:51:27 +0000 |
| commit | 6269aa26309cf98d100d7580c09ccf63b504d0d8 (patch) | |
| tree | b200f6be109cf7421b06592a6620a00d2dbed965 /src/guile/skribilo/debug.scm | |
| parent | 2d740bec3cc50480980d8aae3a06e27a5f0649e5 (diff) | |
| download | skribilo-6269aa26309cf98d100d7580c09ccf63b504d0d8.tar.gz skribilo-6269aa26309cf98d100d7580c09ccf63b504d0d8.tar.lz skribilo-6269aa26309cf98d100d7580c09ccf63b504d0d8.zip | |
First real document produced!
Lots of things, including:
* src/guile/skribilo/engine/lout.scm: New file.
First real document produced!
git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-4
Diffstat (limited to 'src/guile/skribilo/debug.scm')
| -rw-r--r-- | src/guile/skribilo/debug.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/guile/skribilo/debug.scm b/src/guile/skribilo/debug.scm index b880a66..cc0dfb2 100644 --- a/src/guile/skribilo/debug.scm +++ b/src/guile/skribilo/debug.scm @@ -27,7 +27,8 @@ (define-module (skribilo debug) :export (with-debug %with-debug debug-item skribe-debug set-skribe-debug! add-skribe-debug-symbol - no-debug-color)) + no-debug-color) + :use-module (srfi srfi-17)) (define *skribe-debug* 0) @@ -50,8 +51,9 @@ (define (no-debug-color) (set! *skribe-debug-color* #f)) -(define (skribe-debug) - *skribe-debug*) +(define-public skribe-debug + (getter-with-setter (lambda () *skribe-debug*) + (lambda (val) (set! *skribe-debug* val)))) ;; ;; debug-port |