From d314331858b6817c02bb5ee100914514f0aefe97 Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Mon, 23 May 2011 15:46:07 -0400
Subject: [PATCH] Added comments to atan.

---
 src/racket/src/number.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/racket/src/number.c b/src/racket/src/number.c
index 56d0ed2241..02b9751214 100644
--- a/src/racket/src/number.c
+++ b/src/racket/src/number.c
@@ -2292,7 +2292,7 @@ atan_prim (int argc, Scheme_Object *argv[])
 #endif
 
     v = atan2(v, v2);
-  } else {
+  } else { /* 1-argument case */
     if (argv[0] == zeroi)
       return zeroi;
 
@@ -2300,7 +2300,7 @@ atan_prim (int argc, Scheme_Object *argv[])
 
 #ifdef MZ_USE_SINGLE_FLOATS
 # ifndef USE_SINGLE_FLOATS_AS_DEFAULT
-    sgl++;
+    sgl++; /* sgl needs to be 2 to return a single-precision result */
 # endif
 #endif    
   }