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/writer.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/writer.scm')
-rw-r--r-- | src/guile/skribilo/writer.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/guile/skribilo/writer.scm b/src/guile/skribilo/writer.scm index eeefe8b..abfb10c 100644 --- a/src/guile/skribilo/writer.scm +++ b/src/guile/skribilo/writer.scm @@ -139,8 +139,9 @@ ;;; will consider the value of ENGINE to be the first keyword found. ; (let ((e (or engine (default-engine)))) - (let ((e (or (and (list? engine) - (not (keyword? (car engine)))) + (let ((e (or (if (and (list? engine) (not (keyword? (car engine)))) + (car engine) + #f) (default-engine)))) (cond |