~ 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