From 7a234de08a024d77d32c7f4784d1e40c06a6893a Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Thu, 2 Mar 2006 09:17:41 +0000
Subject: Fixed `copy-engine' with respect to the writers optimization.

* src/guile/skribilo/engine.scm (copy-engine): Fixed so that the
  `writers' hash table is actually copied.

git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-66
---
 src/guile/skribilo/engine.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'src/guile')

diff --git a/src/guile/skribilo/engine.scm b/src/guile/skribilo/engine.scm
index fbaf4d2..de455cd 100644
--- a/src/guile/skribilo/engine.scm
+++ b/src/guile/skribilo/engine.scm
@@ -207,6 +207,17 @@
     (slot-set! new 'symbol-table (or symbol-table (slot-ref e 'symbol-table)))
     (slot-set! new 'customs	 (or custom (slot-ref e 'customs)))
 
+    ;; XXX: We don't use `list-copy' here because writer lists are only
+    ;; consed, never mutated.
+
+    ;(slot-set! new 'free-writers (list-copy (slot-ref e 'free-writers)))
+
+    (let ((new-writers (make-hash-table)))
+      (hash-for-each (lambda (m w*)
+		       (hashq-set! new-writers m w*))
+		     (slot-ref e 'writers))
+      (slot-set! new 'writers new-writers))
+
     (set! *engines* (cons new *engines*))
     new))
 
-- 
cgit v1.2.3