summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/engine.scm2
-rw-r--r--src/guile/skribilo/writer.scm16
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').