(math-small-factorial-table): Replace list by vector.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e7ab6ae52d906cc9225c687854d70b20b1cb1d97..5f68d1e20a3ca2424b56a55f6eeecd7ae8876041 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -8,6 +8,8 @@
        compute "^".
        (calculator-mode): Mention that results which are too large
        will return inf.
+       * calc/calc-comb.el (math-small-factorial-table): Replace list
+       by vector.
 
 2007-07-03  David Kastrup  <dak@gnu.org>
 

diff --git a/lisp/calc/calc-comb.el b/lisp/calc/calc-comb.el
index 515995a2e746293dbdbe61307108abb69f3b0dce..7bda99724267d99bff6f07c229cb8f8a410650f5 100644 (file)
--- a/lisp/calc/calc-comb.el
+++ b/lisp/calc/calc-comb.el
@@ -296,19 +296,18 @@
 
 (defconst math-small-factorial-table
   (eval-when-compile
-    (list
-     'vector 1 1 2 6 24 120 720 5040 40320 362880 
-     (math-read-number-simple "3628800")
-     (math-read-number-simple "39916800")
-     (math-read-number-simple "479001600")
-     (math-read-number-simple "6227020800")
-     (math-read-number-simple "87178291200")
-     (math-read-number-simple "1307674368000")
-     (math-read-number-simple "20922789888000")
-     (math-read-number-simple "355687428096000")
-     (math-read-number-simple "6402373705728000")
-     (math-read-number-simple "121645100408832000")
-     (math-read-number-simple "2432902008176640000"))))
+    (vector 1 1 2 6 24 120 720 5040 40320 362880 
+            (math-read-number-simple "3628800")
+            (math-read-number-simple "39916800")
+            (math-read-number-simple "479001600")
+            (math-read-number-simple "6227020800")
+            (math-read-number-simple "87178291200")
+            (math-read-number-simple "1307674368000")
+            (math-read-number-simple "20922789888000")
+            (math-read-number-simple "355687428096000")
+            (math-read-number-simple "6402373705728000")
+            (math-read-number-simple "121645100408832000")
+            (math-read-number-simple "2432902008176640000"))))
 
 (defun calcFunc-fact (n)   ; [I I] [F F] [Public]
   (let (temp)