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 967a3a87dfb30953f290cecc1211dcf25db97861..696e7c67cf71da8165d8628b0de581e29536ceb6 100644 (file)
--- 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)))))