~ chicken-core (chicken-5) c90b5fea25cdfed5b971bc74e72849264e13ea17

commit c90b5fea25cdfed5b971bc74e72849264e13ea17
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Thu Apr 18 00:07:24 2013 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed May 8 11:47:30 2013 +0200

    Fix types database entry for file-select to allow for #f and bare fixnums, too

diff --git a/types.db b/types.db
index 3424af0c..01d84e21 100644
--- a/types.db
+++ b/types.db
@@ -1684,7 +1684,7 @@
 (file-position (#(procedure #:clean #:enforce) file-position ((or port fixnum)) fixnum))
 (file-read (#(procedure #:clean #:enforce) file-read (fixnum fixnum #!optional *) list))
 (file-read-access? (#(procedure #:clean #:enforce) file-read-access? (string) boolean))
-(file-select (#(procedure #:clean #:enforce) file-select ((list-of fixnum) (list-of fixnum) #!optional fixnum) * *))
+(file-select (#(procedure #:clean #:enforce) file-select ((or (list-of fixnum) fixnum boolean) (or (list-of fixnum) fixnum boolean) #!optional fixnum) * *))
 (file-size (#(procedure #:clean #:enforce) file-size ((or string fixnum)) number))
 (file-stat (#(procedure #:clean #:enforce) file-stat ((or string fixnum) #!optional *) (vector-of number)))
 (file-test-lock (#(procedure #:clean #:enforce) file-test-lock (port #!optional fixnum *) boolean))