From e7ae49797b5d438da2d76eb533f5582e3096e122 Mon Sep 17 00:00:00 2001 From: Travis Cross Date: Mon, 31 Mar 2008 22:43:45 +0000 Subject: [PATCH] Updated atan to support two arguments as in CL. ATAN with two arguments translates into atan2 in JS. --- src/lib/ps-macro-lib.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lib/ps-macro-lib.lisp b/src/lib/ps-macro-lib.lisp index 6a87323..81c56e3 100644 --- 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)) -- 2.20.1