~ chicken-core (chicken-5) cf5393cd60bd4c4ecac98a8a3b28bd770e84532f


commit cf5393cd60bd4c4ecac98a8a3b28bd770e84532f
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon May 9 08:09:21 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon May 9 08:09:21 2011 +0200

    fixed incorrect rewrites for fxeven?/fxodd?

diff --git a/c-platform.scm b/c-platform.scm
index a815e1cb..2dbd0e1f 100644
--- a/c-platform.scm
+++ b/c-platform.scm
@@ -818,8 +818,8 @@
 (rewrite 'even? 17 1 "C_i_evenp" "C_u_i_evenp")
 (rewrite 'odd? 17 1 "C_i_oddp" "C_u_i_oddp")
 
-(rewrite 'fxodd? 2 1 "C_fixnumoddp" #t)
-(rewrite 'fxeven? 2 1 "C_fixnumevenp" #t)
+(rewrite 'fxodd? 2 1 "C_i_fixnumoddp" #t)
+(rewrite 'fxeven? 2 1 "C_i_fixnumevenp" #t)
 
 (rewrite 'floor 15 'flonum 'fixnum 'fpfloor #f)
 (rewrite 'ceiling 15 'flonum 'fixnum 'fpceiling #f)
Trap