Added handling for PI.

[clinton/parenscript.git] / src / lib / ps-macro-lib.lisp

diff --git a/src/lib/ps-macro-lib.lisp b/src/lib/ps-macro-lib.lisp
index a38b4e8..85ff59e 100644 (file)
--- a/src/lib/ps-macro-lib.lisp
+++ b/src/lib/ps-macro-lib.lisp
@@ -45,6 +45,8 @@
                                  `(floor (* ,upto (*math.random)))
                                  '(*math.random))))
 
+(define-script-symbol-macro pi '*math.*pi*)
+
 ;;; Exception handling
 
 (defpsmacro ignore-errors (&body body)