From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 29 May 2019 04:11:52 +0000 (+0000)
Subject: Fix check for arity of hash: must be binary, not unary.
X-Git-Tag: mit-scheme-pucked-10.1.11~6^2~19
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=aec466572291046f0dde041eb29a8330ffc7ab8f;p=mit-scheme.git

Fix check for arity of hash: must be binary, not unary.
---

diff --git a/src/runtime/hash-table.scm b/src/runtime/hash-table.scm
index 967a3a87d..696e7c67c 100644
--- a/src/runtime/hash-table.scm
+++ b/src/runtime/hash-table.scm
@@ -1050,7 +1050,7 @@ USA.
 
 (define-deferred hash-table-type-options
   (keyword-option-parser
-   (list (list 'hash-function unary-procedure? default-object)
+   (list (list 'hash-function binary-procedure? default-object)
 	 (list 'rehash-after-gc? boolean? default-object)
 	 (list 'entry-type entry-type-name? (lambda () 'strong)))))