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

minor clean-ups

Browse Source 
svn: r2583
This commit is contained in:
Matthew Flatt 2006-04-03 17:01:21 +00:00
parent 230fcda959
commit a377d4fdad
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2276,7 +2276,7 @@ scheme_inexact_to_exact (int argc, Scheme_Object *argv[])
double d = SCHEME_FLOAT_VAL(o);
/* Try simple case: */
Scheme_Object *i = scheme_make_integer((int)d);
Scheme_Object *i = scheme_make_integer((long)d);
if ((double)SCHEME_INT_VAL(i) == d) {
# ifdef NAN_EQUALS_ANYTHING
if (!MZ_IS_NAN(d))

5
src/mzscheme/src/stxobj.c
View File

@ -4131,7 +4131,7 @@ static Scheme_Object *syntax_is_graph_k(void)
p->ku.k.p1 = NULL;
return (Scheme_Object *)syntax_is_graph_inner(o);
return syntax_is_graph_inner(o) ? scheme_true : scheme_false;
}
#endif
@ -4146,7 +4146,8 @@ static int syntax_is_graph_inner(Scheme_Object *o)
{
Scheme_Thread *p = scheme_current_thread;
p->ku.k.p1 = (void *)o;
return (int)scheme_handle_stack_overflow(syntax_is_graph_k);
v = scheme_handle_stack_overflow(syntax_is_graph_k);
return SCHEME_TRUEP(v);
}
}
#endif