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

Added comments to atan.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-05-23 15:46:07 -04:00
parent 00e17ab51f
commit d314331858
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/racket/src/number.c
View File

@ -2292,7 +2292,7 @@ atan_prim (int argc, Scheme_Object *argv[])
#endif #endif
v = atan2(v, v2); v = atan2(v, v2);
} else { } else { /* 1-argument case */
if (argv[0] == zeroi) if (argv[0] == zeroi)
return zeroi; return zeroi;
@ -2300,7 +2300,7 @@ atan_prim (int argc, Scheme_Object *argv[])
#ifdef MZ_USE_SINGLE_FLOATS #ifdef MZ_USE_SINGLE_FLOATS
# ifndef USE_SINGLE_FLOATS_AS_DEFAULT # ifndef USE_SINGLE_FLOATS_AS_DEFAULT
sgl++; sgl++; /* sgl needs to be 2 to return a single-precision result */
# endif # endif
#endif #endif
} }