From 85225f5ac85b318b259692470e5acb69c9036a94 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 30 Jul 2007 16:30:04 +0000
Subject: [PATCH] current-memory-use isn't always a fixnum

svn: r6985
---
 src/mzscheme/src/thread.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/thread.c b/src/mzscheme/src/thread.c
index 48b5d8c32b..01d88a2958 100644
--- a/src/mzscheme/src/thread.c
+++ b/src/mzscheme/src/thread.c
@@ -893,7 +893,7 @@ static Scheme_Object *current_memory_use(int argc, Scheme_Object *args[])
   retval = GC_get_memory_use();
 #endif
   
-  return scheme_make_integer(retval);
+  return scheme_make_integer_value(retval);
 }