~ chicken-core (chicken-5) 1569fd20820cfe7cfd6d4b74347db8cc9ba33946

commit 1569fd20820cfe7cfd6d4b74347db8cc9ba33946
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Aug 8 05:03:04 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Aug 8 05:03:04 2011 +0200

    more specific type for current-seconds

diff --git a/types.db b/types.db
index decdf091..e1076349 100644
--- a/types.db
+++ b/types.db
@@ -594,7 +594,7 @@
 (current-gc-milliseconds (procedure current-gc-milliseconds () fixnum))
 (current-milliseconds (procedure current-milliseconds () float))
 (current-read-table (procedure current-read-table () (struct read-table)))
-(current-seconds (procedure current-seconds () number))
+(current-seconds (procedure current-seconds () float))
 (define-reader-ctor (procedure! define-reader-ctor (symbol procedure) undefined))
 (delete-file (procedure! delete-file (string) string))
 (enable-warnings (procedure enable-warnings (#!optional *) *))