diff options
Diffstat (limited to 'src/guile')
| -rw-r--r-- | src/guile/skribilo/engine.scm | 2 | ||||
| -rw-r--r-- | src/guile/skribilo/writer.scm | 16 |
2 files changed, 9 insertions, 9 deletions
diff --git a/src/guile/skribilo/engine.scm b/src/guile/skribilo/engine.scm index c52f48b..51da726 100644 --- a/src/guile/skribilo/engine.scm +++ b/src/guile/skribilo/engine.scm @@ -344,7 +344,7 @@ otherwise the requested engine is returned." (define (engine-custom-add! e id val) (let ((old (engine-custom e id))) - (if (unspecified? old) + (if (eq? old 'unspecified) (engine-custom-set! e id (list val)) (engine-custom-set! e id (cons val old))))) diff --git a/src/guile/skribilo/writer.scm b/src/guile/skribilo/writer.scm index a57acc5..d105a05 100644 --- a/src/guile/skribilo/writer.scm +++ b/src/guile/skribilo/writer.scm @@ -278,7 +278,7 @@ (define (matching-writer writers) (find (lambda (w) (and (if class (equal? (writer-class w) class) #t) - (or (unspecified? pred) + (or (eq? pred 'unspecified) (eq? (slot-ref w 'upred) pred)))) writers)) @@ -334,13 +334,13 @@ (define* (copy-markup-writer markup old-engine ;; #:optional new-engine - :key (predicate 'unspecified) - (class 'unspecified) - (options 'unspecified) - (validate 'unspecified) - (before 'unspecified) - (action 'unspecified) - (after 'unspecified) + :key (predicate *unspecified*) + (class *unspecified*) + (options *unspecified*) + (validate *unspecified*) + (before *unspecified*) + (action *unspecified*) + (after *unspecified*) :rest args) (define new-engine ;; XXX: Work around `lambda*' suckingness (see `markup-writer'). |