~ chicken-core (chicken-5) decf8d44e04a0a9ad967e17321cb14ac0181c6e1

commit decf8d44e04a0a9ad967e17321cb14ac0181c6e1
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Jan 8 12:18:40 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Jan 8 12:18:40 2011 +0100

    types.db fixes by Kon Lovett

diff --git a/types.db b/types.db
index 6d0d5b75..bdd834c3 100644
--- a/types.db
+++ b/types.db
@@ -1056,8 +1056,8 @@
 (string-concatenate-reverse (procedure string-concatenate-reverse (list) string))
 (string-concatenate-reverse/shared (procedure string-concatenate-reverse/shared (list) string))
 (string-concatenate/shared (procedure string-concatenate/shared (list) string))
-(string-contains (procedure string-contains (string string #!optional fixnum fixnum fixnum fixnum) *))
-(string-contains-ci (procedure string-contains-ci (string string #!optional fixnum fixnum fixnum fixnum) *))
+(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)))
 (string-copy (procedure string-copy (string #!optional fixnum fixnum) string))
 (string-copy! (procedure string-copy! (string fixnum string #!optional fixnum fixnum) undefined))
 (string-count (procedure string-count (string * #!optional fixnum fixnum) fixnum))
@@ -1073,8 +1073,8 @@
 (string-fold-right (procedure string-fold-right ((procedure (char *) *) * string #!optional fixnum fixnum) *))
 (string-for-each (procedure string-for-each ((procedure (char) . *) string #!optional fixnum fixnum) undefined))
 (string-for-each-index (procedure string-for-each-index ((procedure (fixnum) . *) string #!optional fixnum fixnum) undefined))
-(string-index (procedure string-index (string * #!optional fixnum fixnum) *))
-(string-index-right (procedure string-index-right (string * #!optional fixnum fixnum) *))
+(string-index (procedure string-index (string * #!optional fixnum fixnum) (or fixnum boolean)))
+(string-index-right (procedure string-index-right (string * #!optional fixnum fixnum) (or fixnum boolean)))
 (string-join (procedure string-join (list #!optional string symbol) string))
 (string-kmp-partial-search (procedure string-kmp-partial-search (string vector string fixnum #!optional (procedure (char char) *) fixnum fixnum fixnum) fixnum))
 (string-map (procedure string-map ((procedure (char) char) string #!optional fixnum fixnum) string))
@@ -1091,8 +1091,8 @@
 (string-replace (procedure string-replace (string string fixnum fixnum #!optional fixnum fixnum) string))
 (string-reverse (procedure string-reverse (string #!optional fixnum fixnum) string))
 (string-reverse! (procedure string-reverse! (string #!optional fixnum fixnum) string))
-(string-skip (procedure string-skip (string * #!optional fixnum fixnum) fixnum))
-(string-skip-right (procedure string-skip-right (string * #!optional fixnum fixnum) fixnum))
+(string-skip (procedure string-skip (string * #!optional fixnum fixnum) (or fixnum boolean)))
+(string-skip-right (procedure string-skip-right (string * #!optional fixnum fixnum) (or fixnum boolean)))
 (string-suffix-ci? (procedure string-suffix-ci? (string string #!optional fixnum fixnum fixnum fixnum) boolean))
 (string-suffix-length (procedure string-suffix-length (string string #!optional fixnum fixnum fixnum fixnum) fixnum))
 (string-suffix-length-ci (procedure string-suffix-length-ci (string string #!optional fixnum fixnum fixnum fixnum) fixnum))