diff options
author | Ludovic Court`es | 2007-06-06 13:06:45 +0000 |
---|---|---|
committer | Ludovic Court`es | 2007-06-06 13:06:45 +0000 |
commit | e6bda4dce5fa0fdc935484e2a2540953f43b5a2d (patch) | |
tree | 68348a085aeac037e52c8e28ff9c3648d5f2cbcf /src/guile/skribilo/writer.scm | |
parent | 2fa73d579b53028324526cc1d73ad09332ac76a9 (diff) | |
download | skribilo-e6bda4dce5fa0fdc935484e2a2540953f43b5a2d.tar.gz skribilo-e6bda4dce5fa0fdc935484e2a2540953f43b5a2d.tar.lz skribilo-e6bda4dce5fa0fdc935484e2a2540953f43b5a2d.zip |
Cleaned up the core modules.
git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-65
Diffstat (limited to 'src/guile/skribilo/writer.scm')
-rw-r--r-- | src/guile/skribilo/writer.scm | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/guile/skribilo/writer.scm b/src/guile/skribilo/writer.scm index b16819d..9c00f82 100644 --- a/src/guile/skribilo/writer.scm +++ b/src/guile/skribilo/writer.scm @@ -20,7 +20,7 @@ ;;; USA. (define-module (skribilo writer) - :export (<writer> writer? write-object writer-options writer-ident + :export (<writer> writer? writer-options writer-ident writer-before writer-action writer-after writer-class invoke markup-writer markup-writer-get markup-writer-get* @@ -89,11 +89,9 @@ (define (make-writer-predicate markup predicate class) - (define (%always-true n e) #t) - (let* ((t2 (if class (lambda (n e) - (and (equal? (markup-class n) class))) + (equal? (markup-class n) class)) #f))) (if predicate (cond @@ -230,7 +228,6 @@ (skribe-error 'markup-writer "illegal engine" e)) (else (let* ((writers (slot-ref e 'writers)) - (markup-writers (hashq-ref writers markup '())) (delegate (slot-ref e 'delegate))) (append (matching-writers writers) |