~ chicken-core (chicken-5) 29d5e7a6018cafef5e60ac4156afabd8af5d1bd3

commit 29d5e7a6018cafef5e60ac4156afabd8af5d1bd3
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Jan 18 15:22:54 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Jan 18 15:22:54 2010 +0100

    added aliases to fp-rounding functions, because numbers egg needs them

diff --git a/library.scm b/library.scm
index e772a2e1..7b48eb65 100644
--- a/library.scm
+++ b/library.scm
@@ -893,8 +893,6 @@ 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)
@@ -910,6 +908,11 @@ EOF
   (fp-check-flonum x 'fpceiling)
   (##core#inline_allocate ("C_a_i_flonum_ceiling" 4) x))
 
+(define ##sys#floor fpfloor) ;XXX needed for backwards compatibility with "numbers" egg
+(define ##sys#truncate fptruncate)
+(define ##sys#round fpround)
+(define ##sys#ceiling fpceiling)
+
 (define (fpsin x)
   #+(not unsafe)
   (fp-check-flonum x 'fpsin)