~ chicken-core (chicken-5) c236b8b1f88c31b5b2cb6fe2cf6d7081ba2489f6

commit c236b8b1f88c31b5b2cb6fe2cf6d7081ba2489f6
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Aug 30 20:43:10 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Aug 30 20:43:10 2011 +0200

    types.db tweaks

diff --git a/types.db b/types.db
index 60ea3c21..821b1e51 100644
--- a/types.db
+++ b/types.db
@@ -610,8 +610,8 @@
 (extension-information (procedure extension-information (symbol) *))
 (feature? (procedure feature? (symbol) boolean))
 (features (procedure features () list))
-(file-exists? (procedure! file-exists? (string) *))
-(directory-exists? (procedure! directory-exists? (string) *))
+(file-exists? (procedure! file-exists? (string) (or boolean string)))
+(directory-exists? (procedure! directory-exists? (string) (or boolean string)))
 (fixnum-bits fixnum)
 (fixnum-precision fixnum)
 
@@ -983,11 +983,11 @@
 (string-translate* (procedure! string-translate* (string list) string))
 (substring-ci=? (procedure! substring-ci=? (string string #!optional fixnum fixnum fixnum) boolean))
 
-(substring-index (procedure! substring-index (string string #!optional fixnum) *)
+(substring-index (procedure! substring-index (string string #!optional fixnum) (or boolean fixnum))
 		 ((* *) (##sys#substring-index #(1) #(2) '0))
 		 ((* * *) (##sys#substring-index #(1) #(2) #(3))))
 
-(substring-index-ci (procedure! substring-index-ci (string string #!optional fixnum) *)
+(substring-index-ci (procedure! substring-index-ci (string string #!optional fixnum) (or boolean fixnum))
 		    ((* *) (##sys#substring-index-ci #(1) #(2) '0))
 		    ((* * *) (##sys#substring-index-ci #(1) #(2) #(3))))
 
@@ -1673,8 +1673,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 boolean fixnum)))
+(string-index-right (procedure! string-index-right (string * #!optional fixnum fixnum) (or boolean fixnum)))
 (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))