Fix the fix, make pi a normal lisp var (Closes bug #176)

[sxemacs] / lisp / float-sup.el

diff --git a/lisp/float-sup.el b/lisp/float-sup.el
index 964c408..05dace0 100644 (file)
--- a/lisp/float-sup.el
+++ b/lisp/float-sup.el
@@ -36,10 +36,7 @@
     (error "Floating point was disabled at compile time"))
 
 ;; define pi and e via math-lib calls. (much less prone to killer typos.)
-(if (featurep 'bigfr)
-    (progn
-      (defconst pi bigfr-pi "The value of Pi (3.1415926...)")
-      (defconst e euler "The value of e (2.7182818...)"))
+(unless (featurep 'bigfr)
   (defconst pi (* 4 (atan 1)) "The value of Pi (3.1415926...)")
   (defconst e (exp 1) "The value of e (2.7182818...)"))