~ chicken-core (chicken-5) 8985027342d6553ad8d15665821df827a43fa8d2

commit 8985027342d6553ad8d15665821df827a43fa8d2
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun May 15 22:43:16 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun May 15 22:43:16 2011 +0200

    types.db fixes

diff --git a/types.db b/types.db
index 331cd97a..0c8b831a 100644
--- a/types.db
+++ b/types.db
@@ -880,7 +880,7 @@
 (##sys#check-string (procedure! ##sys#check-string (string #!optional *) *)
 		    ((string) (let ((#:tmp #(1))) '#t))
 		    ((string) *  (let ((#:tmp #(1))) '#t)))
-(##sys#check-number (procedure! ##sys#check-number (number) *)
+(##sys#check-number (procedure! ##sys#check-number (number #!optional *) *)
 		    ((number) (let ((#:tmp #(1))) '#t))
 		    ((number *) (let ((#:tmp #(1))) '#t)))
 (##sys#check-exact (procedure! ##sys#check-exact (fixnum #!optional *) *)
@@ -1359,7 +1359,7 @@
 (get-host-name (procedure get-host-name () string))
 (glob (procedure! glob (#!rest string) list))
 (group-information (procedure! group-information (fixnum #!optional *) *))
-(initialize-groups (procedure! initialize-groups (fixnum fixnum) undefined))
+(initialize-groups (procedure! initialize-groups (string fixnum) undefined))
 (local-time->seconds (procedure! local-time->seconds (vector) number))
 (local-timezone-abbreviation (procedure local-timezone-abbreviation () string))
 (map-file-to-memory (procedure! map-file-to-memory (* fixnum fixnum fixnum fixnum #!optional fixnum) (struct mmap)))