summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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*)