* mapping.scm (hash-table-mapping): Explicitly request that

make-vector fill new vectors with '(); this will make it easier to
port Guile Scheme code to other Schemes.
* boot-9.scm (make-print-style, make-print-table): Same.

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 18637c4..09edb99 100644 (file)
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -307,7 +307,7 @@
           (else                                                ((print-style-hook style obj)
                                                                 obj port depth length style table)))))))))
 
-(define (make-print-style) (make-vector 59))
+(define (make-print-style) (make-vector 59 '()))
 
 (define (extend-print-style! style utag printer) (hashq-set! style utag printer))
 
@@ -326,7 +326,7 @@
 (define (print-style-excess-length-hook style) (hashq-ref style 'excess-length-hook))
 (define (print-style-excess-depth-hook style) (hashq-ref style 'excess-depth-hook))
 
-(define (make-print-table) (make-vector 59))
+(define (make-print-table) (make-vector 59 '()))
 (define (print-table-ref table obj) (hashq-ref table obj))
 (define (print-table-add! table obj) (hashq-set! table obj (gensym 'ref)))
 

diff --git a/ice-9/mapping.scm b/ice-9/mapping.scm
index 9d9bb7a..ceb3a1b 100644 (file)
--- a/ice-9/mapping.scm
+++ b/ice-9/mapping.scm
@@ -112,7 +112,8 @@
                           (else (error 'hash-table-mapping
                                        "Hash-procedure specified with no known delete function."
                                        hash-proc)))))
-        (table-constructor (or (kw-arg-ref options :table-constructor) make-vector)))
+        (table-constructor (or (kw-arg-ref options :table-constructor)
+                               (lambda (len) (make-vector len '())))))
     (make-hash-table-mapping (table-constructor size)
                             hash-proc
                             assoc-proc