~ chicken-core (chicken-5) 709b1eaf61821679773b65a8568748fcf4d76b42

commit 709b1eaf61821679773b65a8568748fcf4d76b42
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Jan 18 15:09:44 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Jan 18 15:09:44 2010 +0100

    re-added ##sys#floor, which is needed for numbers egg

diff --git a/library.scm b/library.scm
index 122f9ca1..e772a2e1 100644
--- a/library.scm
+++ b/library.scm
@@ -893,6 +893,8 @@ EOF
   (fp-check-flonum x 'fpfloor)
   (##core#inline_allocate ("C_a_i_flonum_floor" 4) x))
 
+(define ##sys#floor fpfloor) ; needed for backwards compatibility with "numbers" egg
+
 (define (fptruncate x)
   #+(not unsafe)
   (fp-check-flonum x 'fptruncate)