~ chicken-core (chicken-5) 3af7b6872a6b18c11a88ee3f077963bca92e76fd


commit 3af7b6872a6b18c11a88ee3f077963bca92e76fd
Author:     felix <bunny351@gmail.com>
AuthorDate: Wed May 12 16:13:57 2010 +0200
Commit:     felix <bunny351@gmail.com>
CommitDate: Wed May 12 16:13:57 2010 +0200

    fxmin/fxmax can be considered safe

diff --git a/c-platform.scm b/c-platform.scm
index 96c6c3d0..581acf86 100644
--- a/c-platform.scm
+++ b/c-platform.scm
@@ -617,8 +617,8 @@
 (rewrite 'fp< 2 2 "C_flonum_lessp" #f)
 (rewrite 'fp>= 2 2 "C_flonum_greater_or_equal_p" #f)
 (rewrite 'fp<= 2 2 "C_flonum_less_or_equal_p" #f)
-(rewrite 'fxmax 2 2 "C_i_fixnum_max" #f)
-(rewrite 'fxmin 2 2 "C_i_fixnum_min" #f)
+(rewrite 'fxmax 2 2 "C_i_fixnum_max" #t)
+(rewrite 'fxmin 2 2 "C_i_fixnum_min" #t)
 (rewrite 'fpmax 2 2 "C_i_flonum_max" #f)
 (rewrite 'fpmin 2 2 "C_i_flonum_min" #f)
 (rewrite 'char-numeric? 2 1 "C_u_i_char_numericp" #t)
Trap