~ 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