X-Git-Url: https://git.hcoop.net/clinton/parenscript.git/blobdiff_plain/8b9d8bc717c7b1ba1aa324b6ef98682707ac13ee..11fd716c568eae7c9e8cabd72b8a4da4b305ca04:/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
--- 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)