~ chicken-core (chicken-5) ca378285f55c293d1c7b50a108c11f80df315731

commit ca378285f55c293d1c7b50a108c11f80df315731
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Sep 4 11:59:19 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Sep 4 11:59:19 2010 +0200

    types.db fixes

diff --git a/types.db b/types.db
index 93fbab2d..eb71adbd 100644
--- a/types.db
+++ b/types.db
@@ -741,8 +741,8 @@
 (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 (port fixnum #!optional *) (struct lock)))
-(file-lock/blocking (procedure file-lock/blocking (port fixnum #!optional *) (struct lock)))
+(file-lock (procedure file-lock (port #!optional fixnum *) (struct lock)))
+(file-lock/blocking (procedure file-lock/blocking (port #!optional fixnum *) (struct lock)))
 (file-mkstemp (procedure file-mkstemp (string) fixnum string))
 (file-modification-time (procedure file-modification-time ((or string fixnum)) number))
 (file-open (procedure file-open (string fixnum #!optional fixnum) fixnum))
@@ -754,7 +754,7 @@
 (file-select (procedure file-select (list list #!optional fixnum) list list))
 (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-test-lock (procedure file-test-lock (port #!optional fixnum *) boolean))
 (file-truncate (procedure file-truncate ((or string fixnum) fixnum) undefined))
 (file-type (procedure ((or string fixnum) #!optional * *) symbol))
 (file-unlock (procedure file-unlock ((struct lock)) undefined))
@@ -1356,7 +1356,7 @@
 (hash-table-set! (procedure hash-table-set! ((struct hash-table) * *) undefined))
 (hash-table-size (procedure hash-table-size ((struct hash-table)) fixnum))
 (hash-table-update! (procedure hash-table-update! ((struct hash-table) * #!optional (procedure (*) *) (procedure () *)) *))
-(hash-table-update!/default (procedure hash-table-update!/default ((struct hash-table) * (procedure (*) *) (procedure () *)) *))
+(hash-table-update!/default (procedure hash-table-update!/default ((struct hash-table) * (procedure (*) *) *) *))
 (hash-table-values (procedure hash-table-values ((struct hash-table)) list))
 (hash-table-walk (procedure hash-table-walk ((struct hash-table) (procedure (* *) . *)) undefined))
 (hash-table-weak-keys (procedure hash-table-weak-keys ((struct hash-table)) boolean))