summaryrefslogtreecommitdiff
path: root/ice-9/mapping.scm
diff options
context:
space:
mode:
Diffstat (limited to 'ice-9/mapping.scm')
-rw-r--r--ice-9/mapping.scm3
1 files changed, 2 insertions, 1 deletions
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