Updated atan to support two arguments as in CL.

ATAN with two arguments translates into atan2 in JS.

diff --git a/src/lib/ps-macro-lib.lisp b/src/lib/ps-macro-lib.lisp
index 6a87323..81c56e3 100644 (file)
--- a/src/lib/ps-macro-lib.lisp
+++ b/src/lib/ps-macro-lib.lisp
@@ -21,7 +21,7 @@
     (tan (n) `(*math.tan ,n))
     (acos (n) `(*math.acos ,n))
     (asin (n) `(*math.asin ,n))
-    (atan (n) `(*math.atan ,n))
+    (atan (y &optional x) (if x `(*math.atan2 ,y ,x) `(*math.atan ,y)))
     (exp (n) `(*math.exp ,n))
     (floor (n &optional divisor) `(*math.floor ,(if divisor `(/ ,n ,divisor) n)))
     (expt (base power) `(*math.pow ,base ,power))