diff options
author | Jim Blandy <jimb@red-bean.com> | 1996-10-11 07:54:02 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1996-10-11 07:54:02 +0000 |
commit | 95b6af86e8aff5326050eb9673a91a44a3518324 (patch) | |
tree | a5cd82c6d1258497649db8274ad7f2c31e009971 | |
parent | f0bfd97ebbbfd740263c26987761b95628f68260 (diff) | |
download | guile-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.scm | 4 | ||||
-rw-r--r-- | ice-9/mapping.scm | 3 |
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 |