From 3000523427a1446ec3af5792e9d3bd663045547a Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 13 Mar 2015 07:10:41 +0900 Subject: [PATCH] Bugfix in hash-table-copy which didn't copy hash function. Patch from Alexei Lozovsky. --- lib/srfi/69/interface.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/srfi/69/interface.scm b/lib/srfi/69/interface.scm index 1f95fe90..99bfc9f7 100644 --- a/lib/srfi/69/interface.scm +++ b/lib/srfi/69/interface.scm @@ -111,6 +111,7 @@ (define (hash-table-copy table) (assert-hash-table "hash-table-copy" table) - (let ((res (make-hash-table (hash-table-equivalence-function table)))) + (let ((res (make-hash-table (hash-table-equivalence-function table) + (hash-table-hash-function table)))) (hash-table-merge! res table) res))