From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 24 Oct 2010 06:27:02 +0000 (+0000)
Subject: Omit procedure arity check in HASH-TABLE/MODIFY!.
X-Git-Tag: 20101212-Gtk~28
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=22e805300d837b87b885ecaa4c81d69582cd3f63;p=mit-scheme.git

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 97481d412..bf24d3c38 100644
--- 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)