current-memory-use isn't always a fixnum

svn: r6985
This commit is contained in:
Matthew Flatt 2007-07-30 16:30:04 +00:00
parent 7035d6f23b
commit 85225f5ac8

View File

@ -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);
}