~ chicken-core (chicken-5) 577dd7ec342bae34c71a90cafcd539c88464672d

commit 577dd7ec342bae34c71a90cafcd539c88464672d
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Mar 9 07:17:51 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Mar 9 07:17:51 2010 +0100

    fixed ##sys#round to old behaviour

diff --git a/library.scm b/library.scm
index c32f7761..382822bb 100644
--- a/library.scm
+++ b/library.scm
@@ -914,7 +914,6 @@ EOF
 
 (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)
@@ -1078,6 +1077,8 @@ EOF
       x
       (##core#inline_allocate ("C_a_i_flonum_round_proper" 4) x)))
 
+(define ##sys#round round)		; this is obsolete and is used by the "numbers" egg (gmp version)
+
 (define remainder 
   (lambda (x y) (- x (* (quotient x y) y))) )