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

fix abs for 64-bit

Browse Source 
svn: r9492
This commit is contained in:
Matthew Flatt 2008-04-26 16:00:51 +00:00
parent a1370171f1
commit 3d36ce495b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -353,7 +353,7 @@ scheme_abs(int argc, Scheme_Object *argv[])
o = argv[0];
if (SCHEME_INTP(o)) {
int n = SCHEME_INT_VAL(o);
long n = SCHEME_INT_VAL(o);
return scheme_make_integer_value(ABS(n));
}
t = _SCHEME_TYPE(o);