From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Wed, 2 Aug 2006 05:54:51 +0000 (+0000)
Subject: Fixed bug in `make-hash-table' and `alist->hash-table': neither
X-Git-Tag: 20090517-FFI~963
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4983289ba1a3c027089ff50c2c1b0fd6b0258e3a;p=mit-scheme.git

Fixed bug in `make-hash-table' and `alist->hash-table': neither
provided defaults for `key=?' or `key-hash', so both created
nonfunctioning hash tables if called without both of those parameters.
---

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?)