~ chicken-core (chicken-5) ee5b43f4e8a47937492fa577ca034616eeb3e923

commit ee5b43f4e8a47937492fa577ca034616eeb3e923
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Dec 15 16:02:41 2009 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Dec 15 16:02:41 2009 +0100

    types.db fixes by zbigniew

diff --git a/types.db b/types.db
index cc6edc79..0bd37468 100644
--- a/types.db
+++ b/types.db
@@ -726,27 +726,27 @@
 (fcntl/setfd fixnum)
 (fcntl/setfl fixnum)
 (fifo? (procedure fifo? (string) boolean))
-(file-access-time (procedure file-access-time (string) number))
-(file-change-time (procedure file-change-time (string) number))
+(file-access-time (procedure file-access-time ((or string fixnum)) number))
+(file-change-time (procedure file-change-time ((or string fixnum)) number))
 (file-close (procedure file-close (fixnum) undefined))
 (file-control (procedure file-control (fixnum fixnum #!optional fixnum) fixnum))
 (file-execute-access? (procedure file-execute-access? (string) boolean))
 (file-link (procedure file-link (string string) undefined))
-(file-lock (procedure file-lock (string fixnum #!optional *) (struct lock)))
-(file-lock/blocking (procedure file-lock/blocking (string fixnum #!optional *) (struct lock)))
+(file-lock (procedure file-lock (port fixnum #!optional *) (struct lock)))
+(file-lock/blocking (procedure file-lock/blocking (port fixnum #!optional *) (struct lock)))
 (file-mkstemp (procedure file-mkstemp (string) fixnum string))
-(file-modification-time (procedure file-modification-time (string) number))
+(file-modification-time (procedure file-modification-time ((or string fixnum)) number))
 (file-open (procedure file-open (string fixnum #!optional fixnum) fixnum))
-(file-owner (procedure file-owner (string) fixnum))
-(file-permissions (procedure file-permissions (string) fixnum))
+(file-owner (procedure file-owner ((or string fixnum)) fixnum))
+(file-permissions (procedure file-permissions ((or string fixnum)) fixnum))
 (file-position (procedure file-position ((or port fixnum)) fixnum))
 (file-read (procedure file-read (fixnum fixnum #!optional *) list))
 (file-read-access? (procedure file-read-access? (string) boolean))
 (file-select (procedure file-select (list list #!optional fixnum) list list))
-(file-size (procedure file-size (string) fixnum))
-(file-stat (procedure file-stat (string #!optional *) vector))
+(file-size (procedure file-size ((or string fixnum)) fixnum))
+(file-stat (procedure file-stat ((or string fixnum) #!optional *) vector))
 (file-test-lock (procedure file-test-lock (port fixnum #!optional *) boolean))
-(file-truncate (procedure file-truncate (string fixnum) undefined))
+(file-truncate (procedure file-truncate ((or string fixnum) fixnum) undefined))
 (file-unlock (procedure file-unlock ((struct lock)) undefined))
 (file-write (procedure file-write (fixnum * #!optional fixnum) fixnum))
 (file-write-access? (procedure file-write-access? (string) boolean))