From 332a04d8879be1d13f2be1951b844280b5ab8546 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Mon, 24 Jul 2006 08:38:02 +0000
Subject: Reverted patch-22 (was wrong).

git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-27
---
 src/guile/skribilo/engine.scm | 9 +++------
 src/guile/skribilo/writer.scm | 3 +--
 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)
-- 
cgit v1.2.3