summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1996-10-11 07:54:02 +0000
committerJim Blandy <jimb@red-bean.com>1996-10-11 07:54:02 +0000
commit95b6af86e8aff5326050eb9673a91a44a3518324 (patch)
treea5cd82c6d1258497649db8274ad7f2c31e009971
parentf0bfd97ebbbfd740263c26987761b95628f68260 (diff)
downloadguile-95b6af86e8aff5326050eb9673a91a44a3518324.tar.gz
* 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.
-rw-r--r--ice-9/boot-9.scm4
-rw-r--r--ice-9/mapping.scm3
2 files changed, 4 insertions, 3 deletions
diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 18637c4e7..09edb9921 100644
--- 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 9d9bb7aa6..ceb3a1b38 100644
--- 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