diff options
| author | Ludovic Court`es | 2006-07-24 08:38:02 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2006-07-24 08:38:02 +0000 |
| commit | 332a04d8879be1d13f2be1951b844280b5ab8546 (patch) | |
| tree | bd5a5f6d32c693c10da0fecbdbd2692de5038424 | |
| parent | 3af9f58fbfe8eacf49e88db81b9e809d5fd8bc0a (diff) | |
| download | skribilo-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
| -rw-r--r-- | src/guile/skribilo/engine.scm | 9 | ||||
| -rw-r--r-- | 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) |