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

fix rational < bug

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

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

@ -202,7 +202,7 @@ static int rational_lt(const Scheme_Object *a, const Scheme_Object *b, int or_eq
/* 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->num, rb->num)) { && scheme_bin_gt_eq(ra->denom, rb->denom)) {
if (!or_eq) { if (!or_eq) {
if (scheme_rational_eq(a, b)) if (scheme_rational_eq(a, b))
return 0; return 0;

2
src/mzscheme/src/schemef.h
View File

@ -930,7 +930,7 @@ MZ_EXTERN Scheme_Object *scheme_make_struct_exptime(Scheme_Object **names, int c
Scheme_Object *super_exptime, Scheme_Object *super_exptime,
int flags); int flags);
MZ_EXTERN int scheme_is_struct_instance(Scheme_Object *type, Scheme_Object *v); XFORM_NONGCING MZ_EXTERN int scheme_is_struct_instance(Scheme_Object *type, Scheme_Object *v);
MZ_EXTERN Scheme_Object *scheme_struct_ref(Scheme_Object *s, int pos); MZ_EXTERN Scheme_Object *scheme_struct_ref(Scheme_Object *s, int pos);
MZ_EXTERN void scheme_struct_set(Scheme_Object *s, int pos, Scheme_Object *v); MZ_EXTERN void scheme_struct_set(Scheme_Object *s, int pos, Scheme_Object *v);