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

(cherry picked from commit aec466572291046f0dde041eb29a8330ffc7ab8f)

diff --git a/src/runtime/hash-table.scm b/src/runtime/hash-table.scm
index 4e2a9e6155523e110312a878e2e4a9e69a0ccf0a..83fe3187512e93faf9e7fb5ff23ada5f4ad95804 100644 (file)
--- a/src/runtime/hash-table.scm
+++ b/src/runtime/hash-table.scm
@@ -1025,7 +1025,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)))))