suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

disable rational < fast path until I can get it right

Browse Source 
svn: r5470
This commit is contained in:
Matthew Flatt 2007-01-27 01:02:31 +00:00
parent 0a9f16ec23
commit fd2f6fc8ea
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/rational.c
View File

@ -200,6 +200,7 @@ static int rational_lt(const Scheme_Object *a, const Scheme_Object *b, int or_eq
Scheme_Rational *rb = (Scheme_Rational *)b; Scheme_Rational *rb = (Scheme_Rational *)b;
Scheme_Object *ma, *mb; Scheme_Object *ma, *mb;
#if 0
/* Avoid multiplication in simple cases: */ /* Avoid multiplication in simple cases: */
if (scheme_bin_lt_eq(ra->num, rb->num) if (scheme_bin_lt_eq(ra->num, rb->num)
&& scheme_bin_gt_eq(ra->denom, rb->denom)) { && scheme_bin_gt_eq(ra->denom, rb->denom)) {
@ -212,6 +213,7 @@ static int rational_lt(const Scheme_Object *a, const Scheme_Object *b, int or_eq
if (scheme_rational_eq(a, b)) if (scheme_rational_eq(a, b))
return 1; return 1;
} }
#endif
/* Checking only for lt at this point */ /* Checking only for lt at this point */