From a377d4fdadded7865e2e97b313fe1919b57a4b0b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 3 Apr 2006 17:01:21 +0000
Subject: [PATCH] minor clean-ups

svn: r2583
---
 src/mzscheme/src/number.c | 2 +-
 src/mzscheme/src/stxobj.c | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/mzscheme/src/number.c b/src/mzscheme/src/number.c
index 0318615d80..c569049ba2 100644
--- a/src/mzscheme/src/number.c
+++ b/src/mzscheme/src/number.c
@@ -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))
diff --git a/src/mzscheme/src/stxobj.c b/src/mzscheme/src/stxobj.c
index 6db5cfbb7a..2231292d28 100644
--- a/src/mzscheme/src/stxobj.c
+++ b/src/mzscheme/src/stxobj.c
@@ -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