~ 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