Omit procedure arity check in HASH-TABLE/MODIFY!.

This causes problems in the cold load, and doesn't enhance the safety
of the relevant code.  It only marginally increases the debuggability
of the mistake it catches.

diff --git a/src/runtime/hashtb.scm b/src/runtime/hashtb.scm
index 97481d412e40193cb753515bae5fcd58ba1baf8a..bf24d3c3863cae76ab6d8ceca0d23cf5827949d3 100644 (file)
--- a/src/runtime/hashtb.scm
+++ b/src/runtime/hashtb.scm
@@ -137,7 +137,6 @@ USA.
 
 (define (hash-table/modify! table key procedure default)
   (guarantee-hash-table table 'HASH-TABLE/MODIFY!)
-  (guarantee-procedure-of-arity procedure 1 'HASH-TABLE/MODIFY!)
   ((table-type-method:modify! (table-type table)) table key procedure default))
 
 (define (hash-table/intern! table key get-datum)