~ chicken-core (chicken-5) 45945e653bf7790ccec03bddcc8427c9215cb2c0

commit 45945e653bf7790ccec03bddcc8427c9215cb2c0
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jun 15 03:41:25 2011 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jun 15 03:41:25 2011 -0400

    types.db fix for string-conc.-rev.

diff --git a/types.db b/types.db
index dfcc02e3..a01e10fd 100644
--- a/types.db
+++ b/types.db
@@ -1618,8 +1618,8 @@
 (string-compare (procedure! string-compare (string string (procedure (fixnum) *) (procedure (fixnum) *) (procedure (fixnum) *) #!optional fixnum fixnum fixnum fixnum) *))
 (string-compare-ci (procedure! string-compare (string string (procedure (fixnum) *) (procedure (fixnum) *) (procedure (fixnum) *) #!optional fixnum fixnum fixnum fixnum) *))
 (string-concatenate (procedure! string-concatenate (list) string))
-(string-concatenate-reverse (procedure! string-concatenate-reverse (list) string))
-(string-concatenate-reverse/shared (procedure! string-concatenate-reverse/shared (list) string))
+(string-concatenate-reverse (procedure! string-concatenate-reverse (list #!optional string fixnum) string))
+(string-concatenate-reverse/shared (procedure! string-concatenate-reverse/shared (list #!optional string fixnum) string))
 (string-concatenate/shared (procedure! string-concatenate/shared (list) string))
 (string-contains (procedure! string-contains (string string #!optional fixnum fixnum fixnum fixnum) (or fixnum boolean)))
 (string-contains-ci (procedure! string-contains-ci (string string #!optional fixnum fixnum fixnum fixnum) (or fixnum boolean)))