~ chicken-core (chicken-5) 14a213c55d17883a1a61144f1c488a0882b7d085

commit 14a213c55d17883a1a61144f1c488a0882b7d085
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Sep 1 15:34:28 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Sep 1 15:34:28 2011 +0200

    added missing finite? to types.db

diff --git a/types.db b/types.db
index 09488319..0eb20fa2 100644
--- a/types.db
+++ b/types.db
@@ -756,6 +756,11 @@
 (features (#(procedure #:clean) features () (list symbol)))
 (file-exists? (#(procedure #:clean #:enforce) file-exists? (string) (or boolean string)))
 (directory-exists? (#(procedure #:clean #:enforce) directory-exists? (string) (or boolean string)))
+
+(finite? (#(procedure #:pure) finite? (*) boolean)
+	 ((fixnum) (let ((#(tmp) #(1))) '#t))
+	 ((*) (##core#inline "C_i_finitep" #(1))))
+
 (fixnum-bits fixnum)
 (fixnum-precision fixnum)