~ chicken-core (chicken-5) 9b4f78a1c698ac020954ba9821dea77d53498394

commit 9b4f78a1c698ac020954ba9821dea77d53498394
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Tue Sep 6 21:42:11 2011 +0200
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Tue Sep 6 21:42:11 2011 +0200

    types.db fix: irregex-replace and irregex-replace/all always return strings (now! :P)

diff --git a/types.db b/types.db
index a131e340..859a2891 100644
--- a/types.db
+++ b/types.db
@@ -1312,8 +1312,8 @@
 
 (irregex-opt (#(procedure #:enforce) irregex-opt (list) *))
 (irregex-quote (#(procedure #:enforce) irregex-quote (string) string))
-(irregex-replace (#(procedure #:enforce) irregex-replace (* string #!rest) *))
-(irregex-replace/all (#(procedure #:enforce) irregex-replace/all (* string #!rest) *))
+(irregex-replace (#(procedure #:enforce) irregex-replace (* string #!rest) string))
+(irregex-replace/all (#(procedure #:enforce) irregex-replace/all (* string #!rest) string))
 (irregex-reset-matches! (procedure irregex-reset-matches! (*) *))
 (irregex-search (#(procedure #:enforce) irregex-search (* string #!optional fixnum fixnum) *))
 (irregex-search/matches (#(procedure #:enforce) irregex-search/matches (* string fixnum fixnum *) *))