diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/guile/skribilo/engine.scm | 6 |
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*) |