~ chicken-core (chicken-5) 9a07eaa1a656214d0975b676a97a024d55f502b8

commit 9a07eaa1a656214d0975b676a97a024d55f502b8
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon May 23 12:13:44 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon May 23 12:13:44 2011 +0200

    types.db fixed for some irregex procedures, found by Kon Lovett

diff --git a/types.db b/types.db
index cfbcce71..c1133982 100644
--- a/types.db
+++ b/types.db
@@ -547,8 +547,8 @@
 (irregex-dfa/search (procedure irregex-dfa/search (*) *))
 (irregex-extract (procedure irregex-extract (* string #!optional fixnum fixnum) list))
 (irregex-flags (procedure irregex-flags (*) *))
-(irregex-fold (procedure irregex-fold (* (procedure (fixnum (struct regexp-match)) *) * string #!optional (procedure (fixnum *) *) fixnum fixnum) *))
-(irregex-fold/chunked (procedure irregex-fold/chunked (* (procedure (fixnum (struct regexp-match)) *) * procedure * #!optional (procedure (fixnum *) *) fixnum fixnum) *))
+(irregex-fold (procedure irregex-fold (* (procedure (fixnum (struct regexp-match) *) *) * string #!optional (procedure (fixnum *) *) fixnum fixnum) *))
+(irregex-fold/chunked (procedure irregex-fold/chunked (* (procedure (* fixnum (struct regexp-match) *) *) * procedure * #!optional (procedure (* fixnum *) *) fixnum fixnum) *))
 (irregex-lengths (procedure irregex-lengths (*) *))
 (irregex-match (procedure irregex-match (* string) *))
 ;irregex-match?
@@ -575,6 +575,7 @@
 (irregex-replace/all (procedure irregex-replace/all (* string #!rest) *))
 (irregex-reset-matches! (procedure irregex-reset-matches! (*) *))
 (irregex-search (procedure irregex-search (* string #!optional fixnum fixnum) *))
+(irregex-search/chunked (procedure irregex-search/chunked (* procedure * #!optional fixnum fixnum *) *))
 (irregex-search/matches (procedure irregex-search/matches (* string fixnum fixnum *) *))
 (irregex-split (procedure irregex-split (* string #!optional fixnum fixnum) list))
 (irregex-submatches (procedure irregex-submatches (*) *))