[Emacs-diffs] Changes to emacs/lisp/calc/calc-ext.el,v

[Jay Belanger]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jay Belanger <jpb>      07/07/07 23:57:23

Index: calc-ext.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc-ext.el,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -b -r1.55 -r1.56
--- calc-ext.el 23 Jun 2007 04:36:29 -0000      1.55
+++ calc-ext.el 7 Jul 2007 23:57:23 -0000       1.56
@@ -1927,7 +1927,9 @@
 ;;; Betcha didn't know that pi = 16 atan(1/5) - 4 atan(1/239).   [F] [Public]
 (defconst math-approx-pi 
   (eval-when-compile
-    (math-read-number-simple "3.141592653589793238463")))
+    (math-read-number-simple "3.141592653589793238463"))
+  "An approximation for pi.")
+
 (math-defcache math-pi math-approx-pi
   (math-add-float (math-mul-float '(float 16 0)
                                  (math-arctan-raw '(float 2 -1)))
@@ -1960,7 +1962,8 @@
   (math-sqrt-float (math-two-pi)))
 
 (defconst math-approx-sqrt-e
-  (eval-when-compile (math-read-number-simple "1.648721270700128146849")))
+  (eval-when-compile (math-read-number-simple "1.648721270700128146849"))
+  "An approximation for sqrt(3).")
     
 (math-defcache math-sqrt-e math-approx-sqrt-e
   (math-add-float '(float 1 0) (math-exp-minus-1-raw '(float 5 -1))))
@@ -1975,7 +1978,8 @@
 (defconst math-approx-gamma-const
   (eval-when-compile
     (math-read-number-simple 
-     
"0.5772156649015328606065120900824024310421593359399235988057672348848677267776646709369470632917467495")))
+     
"0.5772156649015328606065120900824024310421593359399235988057672348848677267776646709369470632917467495"))
+  "An approximation for gamma.")
 
 (math-defcache math-gamma-const nil 
   math-approx-gamma-const)