~ chicken-core (master) 9fb648cb7fe7c53e3a58771d64625b7e725edf60

commit 9fb648cb7fe7c53e3a58771d64625b7e725edf60
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Feb 22 10:09:25 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Feb 22 10:09:25 2010 +0100

    disabled procedure checks and used fixnum mode for regex unit

diff --git a/regex.scm b/regex.scm
index 88f703f9..3fd16ecb 100644
--- a/regex.scm
+++ b/regex.scm
@@ -33,6 +33,7 @@
   (usual-integrations)
   (disable-interrupts)
 ;  (disable-warning var)
+  (fixnum)
   (export
     regexp? regexp
     string-match string-match-positions string-search string-search-positions
@@ -57,7 +58,7 @@
  [else
   (declare
     (no-bound-checks)
-    (no-procedure-checks-for-usual-bindings) ) ] )
+    (no-procedure-checks) ) ] )
 
 (include "unsafe-declarations.scm")
 
@@ -298,6 +299,7 @@
 	(regexp regexp))
     (lambda (rx lst #!optional (acc (lambda (x) x)))
       (##sys#check-list lst 'grep)
+      (##sys#check-closure acc 'grep)
       (let ((rx (regexp rx)))
 	(let loop ((lst lst))
 	  (if (null? lst)