From 5288d66661b2912d2c6f6ee5746438771d23c537 Mon Sep 17 00:00:00 2001
From: Vladimir Sedach <vsedach@gmail.com>
Date: Fri, 20 Feb 2009 16:47:08 -0700
Subject: [PATCH 1/1] Fixed the 'pi' symbol-macro.

---
 src/lib/ps-macro-lib.lisp | 2 +-
 t/ps-tests.lisp           | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

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")
-- 
2.20.1