diff options
Diffstat (limited to 'ice-9/mapping.scm')
-rw-r--r-- | ice-9/mapping.scm | 3 |
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 |