~ chicken-core (chicken-5) b6938581716c0e02ce4ef647e1daf5b80b61161a

commit b6938581716c0e02ce4ef647e1daf5b80b61161a
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue May 17 10:40:14 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed May 18 04:29:37 2011 -0400

    fixed incorrect rewrite-rules for fp-rounding operators

diff --git a/c-platform.scm b/c-platform.scm
index a815e1cb..57faa94d 100644
--- a/c-platform.scm
+++ b/c-platform.scm
@@ -824,7 +824,6 @@
 (rewrite 'floor 15 'flonum 'fixnum 'fpfloor #f)
 (rewrite 'ceiling 15 'flonum 'fixnum 'fpceiling #f)
 (rewrite 'truncate 15 'flonum 'fixnum 'fptruncate #f)
-(rewrite 'round 15 'flonum 'fixnum 'fpround #f)
 
 (rewrite 'fpsin 16 1 "C_a_i_flonum_sin" 'specialized words-per-flonum)
 (rewrite 'fpcos 16 1 "C_a_i_flonum_cos" 'specialized words-per-flonum)
@@ -839,9 +838,9 @@
 (rewrite 'fpsqrt 16 1 "C_a_i_flonum_sqrt" 'specialized words-per-flonum)
 (rewrite 'fpabs 16 1 "C_a_i_flonum_abs" 'specialized words-per-flonum)
 (rewrite 'fptruncate 16 1 "C_a_i_flonum_truncate" 'specialized words-per-flonum)
-(rewrite 'fpround 16 1 "C_a_i_flonum_truncate" 'specialized words-per-flonum)
-(rewrite 'fpceiling 16 1 "C_a_i_flonum_truncate" 'specialized words-per-flonum)
-(rewrite 'fpround 16 1 "C_a_i_flonum_truncate" 'specialized words-per-flonum)
+(rewrite 'fpround 16 1 "C_a_i_flonum_round" 'specialized words-per-flonum)
+(rewrite 'fpceiling 16 1 "C_a_i_flonum_ceiling" 'specialized words-per-flonum)
+(rewrite 'fpfloor 16 1 "C_a_i_flonum_floor" 'specialized words-per-flonum)
 
 (rewrite
  'string->number 8