diff options
| author | Ludovic Courtès | 2009-03-24 22:33:05 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2009-03-24 22:33:05 +0100 |
| commit | 3832972faeeb2711248e0b2267b3fe2e41d1c0d5 (patch) | |
| tree | afadf0494edd04ba64f1ebc7ba68cb383125224f | |
| parent | cd3ad5ba23369bae8ae3558d2b4877974f5e36aa (diff) | |
| download | skribilo-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.
| -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*) |