summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Court`es2006-07-24 08:38:02 +0000
committerLudovic Court`es2006-07-24 08:38:02 +0000
commit332a04d8879be1d13f2be1951b844280b5ab8546 (patch)
treebd5a5f6d32c693c10da0fecbdbd2692de5038424 /src/guile
parent3af9f58fbfe8eacf49e88db81b9e809d5fd8bc0a (diff)
downloadskribilo-332a04d8879be1d13f2be1951b844280b5ab8546.tar.gz
skribilo-332a04d8879be1d13f2be1951b844280b5ab8546.tar.lz
skribilo-332a04d8879be1d13f2be1951b844280b5ab8546.zip
Reverted patch-22 (was wrong).
git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-27
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/engine.scm9
-rw-r--r--src/guile/skribilo/writer.scm3
2 files changed, 4 insertions, 8 deletions
diff --git a/src/guile/skribilo/engine.scm b/src/guile/skribilo/engine.scm
index 401f9ef..c422476 100644
--- a/src/guile/skribilo/engine.scm
+++ b/src/guile/skribilo/engine.scm
@@ -313,9 +313,7 @@ otherwise the requested engine is returned."
;; Add a writer to engine E. If IDENT is a symbol, then it should denote
;; a markup name and the writer being added is specific to that markup. If
;; IDENT is `#t' (for instance), then it is assumed to be a ``free writer''
- ;; that may apply to any kind of markup for which PRED returns true. The
- ;; order in which writers are added matters (it should be the same as the
- ;; lookup order), hence the use of `append' below.
+ ;; that may apply to any kind of markup for which PRED returns true.
(define (check-procedure name proc arity)
(cond
@@ -361,10 +359,9 @@ otherwise the requested engine is returned."
(if (symbol? ident)
(let ((writers (slot-ref e 'writers)))
(hashq-set! writers ident
- (append (hashq-ref writers ident '())
- (list n))))
+ (cons n (hashq-ref writers ident '()))))
(slot-set! e 'free-writers
- (append (slot-ref e 'free-writers) (list n))))
+ (cons n (slot-ref e 'free-writers))))
n))
diff --git a/src/guile/skribilo/writer.scm b/src/guile/skribilo/writer.scm
index 4750e57..b46cddc 100644
--- a/src/guile/skribilo/writer.scm
+++ b/src/guile/skribilo/writer.scm
@@ -163,8 +163,7 @@
(define (lookup-markup-writer node e)
;; Find the writer that applies best to NODE. See also `markup-writer-get'
- ;; and `markup-writer-get*'. Writers are looked up in the order in which
- ;; they were registered.
+ ;; and `markup-writer-get*'.
(define (matching-writer writers)
(find (lambda (w)