From 3832972faeeb2711248e0b2267b3fe2e41d1c0d5 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Tue, 24 Mar 2009 22:33:05 +0100
Subject: 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.
---
 src/guile/skribilo/engine.scm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'src/guile')

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*)
-- 
cgit v1.2.3