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 (file)
--- 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 (file)
--- 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")