From: Vladimir Sedach <vsedach@gmail.com>
Date: Fri, 20 Feb 2009 23:47:08 +0000 (-0700)
Subject: Fixed the 'pi' symbol-macro.
X-Git-Url: http://git.hcoop.net/clinton/parenscript.git/commitdiff_plain/5288d66661b2912d2c6f6ee5746438771d23c537

Fixed the 'pi' symbol-macro.
---

diff --git a/src/lib/ps-macro-lib.lisp b/src/lib/ps-macro-lib.lisp
index da74bdc..27febcd 100644
--- a/src/lib/ps-macro-lib.lisp
+++ b/src/lib/ps-macro-lib.lisp
@@ -45,7 +45,7 @@
                                  `(floor (* ,upto (*math.random)))
                                  '(*math.random))))
 
-(define-ps-symbol-macro pi '*math.*pi*)
+(define-ps-symbol-macro pi *math.*pi*)
 
 ;;; Exception handling
 
diff --git a/t/ps-tests.lisp b/t/ps-tests.lisp
index 51c358a..42f2127 100644
--- a/t/ps-tests.lisp
+++ b/t/ps-tests.lisp
@@ -735,3 +735,7 @@ try {
         return z;
     })();
 })(true)")
+
+(test-ps-js math-pi
+  pi
+  "Math.PI")