summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtès2009-03-24 22:33:05 +0100
committerLudovic Courtès2009-03-24 22:33:05 +0100
commit3832972faeeb2711248e0b2267b3fe2e41d1c0d5 (patch)
treeafadf0494edd04ba64f1ebc7ba68cb383125224f /src
parentcd3ad5ba23369bae8ae3558d2b4877974f5e36aa (diff)
downloadskribilo-3832972faeeb2711248e0b2267b3fe2e41d1c0d5.tar.gz
skribilo-3832972faeeb2711248e0b2267b3fe2e41d1c0d5.tar.lz
skribilo-3832972faeeb2711248e0b2267b3fe2e41d1c0d5.zip
Have `*current-engine*' default to `#f'.
* src/guile/skribilo/engine.scm (*current-engine*): Default to `#f' and allow `#f' as a valid value. This removes a circular reference between `(skribilo engine)' and `(skribilo engine html)'. We could use `(delay (lookup-engine 'html))' to that end, but that doesn't seem very useful anyway.
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/engine.scm6
1 files changed, 2 insertions, 4 deletions
diff --git a/src/guile/skribilo/engine.scm b/src/guile/skribilo/engine.scm
index ad5a5a1..1cec513 100644
--- a/src/guile/skribilo/engine.scm
+++ b/src/guile/skribilo/engine.scm
@@ -354,14 +354,12 @@ otherwise the requested engine is returned."
;;; Current engine.
;;;
-;; At this point, we're almost done with the bootstrap process.
-
(define *current-engine*
- ;; By default, use the HTML engine.
- (make-parameter (lookup-engine 'html)
+ (make-parameter #f
(lambda (val)
(cond ((symbol? val) (lookup-engine val))
((engine? val) val)
+ ((not val) val)
(else
(raise (condition (&invalid-argument-error
(proc-name '*current-engine*)