# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1187381951 0
# Node ID ddd464fd7cb4eb4348bf7924633c08aeb4f02d5d
# Parent  d45f82f9c8f3332d582c9ff8e2cbbe67d894d5f5
(math-small-factorial-table): Remove `eval-when-compile's.

diff -r d45f82f9c8f3 -r ddd464fd7cb4 lisp/calc/calc-comb.el
--- a/lisp/calc/calc-comb.el	Fri Aug 17 20:18:45 2007 +0000
+++ b/lisp/calc/calc-comb.el	Fri Aug 17 20:19:11 2007 +0000
@@ -295,17 +295,16 @@
 ;;; Factorial and related functions.
 
 (defconst math-small-factorial-table
-  (eval-when-compile
-    (vector 1 1 2 6 24 120 720 5040 40320 362880 3628800 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 3628800 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)