From 4983289ba1a3c027089ff50c2c1b0fd6b0258e3a Mon Sep 17 00:00:00 2001
From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Wed, 2 Aug 2006 05:54:51 +0000
Subject: [PATCH] =?utf8?q?Fixed=20bug=20in=20`make-hash-table'=20and=20`al?=
 =?utf8?q?ist->hash-table':=20neither=20provided=20defaults=20for=20`key?=
 =?utf8?q?=3D=3F'=20or=20`key-hash',=20so=20both=20created=20nonfunctionin?=
 =?utf8?q?g=20hash=20tables=20if=20called=20without=20both=20of=20those=20?=
 =?utf8?q?parameters.?=

---
 v7/src/runtime/hashtb.scm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/hashtb.scm b/v7/src/runtime/hashtb.scm
index e91cab786..8ac109741 100644
--- a/v7/src/runtime/hashtb.scm
+++ b/v7/src/runtime/hashtb.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: hashtb.scm,v 1.34 2006/02/26 03:00:38 cph Exp $
+$Id: hashtb.scm,v 1.35 2006/08/02 05:54:51 savannah-arthur Exp $
 
 Copyright 1990,1991,1993,1994,1995,2003 Massachusetts Institute of Technology
 Copyright 2004,2005,2006 Massachusetts Institute of Technology
@@ -760,7 +760,14 @@ USA.
 ;;;; SRFI-69 compatability
 
 (define (make-hash-table #!optional key=? key-hash initial-size)
-  (%make-hash-table (custom-table-type key=? key-hash) initial-size))
+  (%make-hash-table (custom-table-type
+		     (if (default-object? key=?)
+			 equal?
+			 key=?)
+		     (if (default-object? key-hash)
+			 equal-hash-mod
+			 key-hash))
+		    initial-size))
 
 (define (custom-table-type key=? key-hash)
   (cond ((and (eq? key=? eq?)
-- 
2.25.1