~ chicken-core (chicken-5) 7aaa1fa3a0aded748175c1c90b2d467b14697a73


commit 7aaa1fa3a0aded748175c1c90b2d467b14697a73
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Jan 27 03:35:46 2011 -0500
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Jan 27 03:35:46 2011 -0500

    test-entry in types.db

diff --git a/types.db b/types.db
index 6608d580..fe9f16dc 100644
--- a/types.db
+++ b/types.db
@@ -97,7 +97,8 @@
 (negative? (procedure negative? (number) boolean))
 (max (procedure max (#!rest number) number))
 (min (procedure min (#!rest number) number))
-(+ (procedure + (#!rest number) number))
+(+ (procedure + (#!rest number) number)
+   ((float float) (fp+ 1 2)))
 (- (procedure - (number #!rest number) number))
 (* (procedure * (#!rest number) number))
 (/ (procedure / (number #!rest number) number))
Trap