~ chicken-core (chicken-5) 3222884f91886877fb88762938a4d2c0da75787f

commit 3222884f91886877fb88762938a4d2c0da75787f
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Wed May 22 13:58:11 2024 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Mon Jun 3 10:46:49 2024 +0200

    The optional timeout argument to "file-select" may be a float
    
    (Reported by Anton Idukov)
    
    Signed-off-by: Peter Bex <peter@more-magic.net>

diff --git a/types.db b/types.db
index c7c6e2b2..ed2f9628 100644
--- a/types.db
+++ b/types.db
@@ -1994,7 +1994,7 @@
 (chicken.file.posix#file-permissions (#(procedure #:clean #:enforce) chicken.file.posix#file-permissions ((or string fixnum port)) fixnum))
 (chicken.file.posix#file-position (#(procedure #:clean #:enforce) chicken.file.posix#file-position ((or port fixnum)) integer))
 (chicken.file.posix#file-read (#(procedure #:clean #:enforce) chicken.file.posix#file-read (fixnum fixnum #!optional *) list))
-(chicken.file.posix#file-select (#(procedure #:clean #:enforce) chicken.file.posix#file-select ((or (list-of fixnum) fixnum false) (or (list-of fixnum) fixnum false) #!optional fixnum) * *))
+(chicken.file.posix#file-select (#(procedure #:clean #:enforce) chicken.file.posix#file-select ((or (list-of fixnum) fixnum false) (or (list-of fixnum) fixnum false) #!optional number) * *))
 (chicken.file.posix#file-size (#(procedure #:clean #:enforce) chicken.file.posix#file-size ((or string fixnum port)) integer))
 (chicken.file.posix#file-stat (#(procedure #:clean #:enforce) chicken.file.posix#file-stat ((or string fixnum port) #!optional *) (vector-of integer)))
 (chicken.file.posix#file-test-lock (#(procedure #:clean #:enforce) chicken.file.posix#file-test-lock (port #!optional fixnum *) boolean))