diff options
author | Ludovic Courtes | 2006-03-07 22:56:07 +0000 |
---|---|---|
committer | Ludovic Courtes | 2006-03-07 22:56:07 +0000 |
commit | faf5a61d584ccad016d5bb3d50ce515931e17897 (patch) | |
tree | 7b5b024b5d7fe58756422a0da50eef91a091a398 /src/guile/skribilo/engine.scm | |
parent | a1fe0c70cf816c122d3ba640bc9abf553f076d5d (diff) | |
download | skribilo-faf5a61d584ccad016d5bb3d50ce515931e17897.tar.gz skribilo-faf5a61d584ccad016d5bb3d50ce515931e17897.tar.lz skribilo-faf5a61d584ccad016d5bb3d50ce515931e17897.zip |
Slight optimization: allow for non-proc predicated for markup writers.
* src/guile/skribilo/engine.scm (engine-add-writer!): Allow PRED to be
`#f'.
* src/guile/skribilo/writer.scm (make-writer-predicate): Likewise.
(lookup-markup-writer)[matching-writer]: Likewise.
git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-43
Diffstat (limited to 'src/guile/skribilo/engine.scm')
-rw-r--r-- | src/guile/skribilo/engine.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/guile/skribilo/engine.scm b/src/guile/skribilo/engine.scm index 0c3f406..3e05571 100644 --- a/src/guile/skribilo/engine.scm +++ b/src/guile/skribilo/engine.scm @@ -333,11 +333,12 @@ otherwise the requested engine is returned." (skribe-error ident "Illegal options" opt)) ;; check the correctness of the predicate - (check-procedure "predicate" pred 2) + (if pred + (check-procedure "predicate" pred 2)) ;; check the correctness of the validation proc (if valid - (check-procedure "validate" valid 2)) + (check-procedure "validate" valid 2)) ;; check the correctness of the three actions (check-output "before" before) |