aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJay Belanger2007-08-17 20:19:11 +0000
committerJay Belanger2007-08-17 20:19:11 +0000
commit2aad2a84015bb66a4575e9ef1abd66d4889b8c15 (patch)
tree717c9d0ce0474614485bf3ded406c003c9c3b32c
parentb411074b9d70cc761d36e410140e88a871258a42 (diff)
downloademacs-2aad2a84015bb66a4575e9ef1abd66d4889b8c15.tar.gz
emacs-2aad2a84015bb66a4575e9ef1abd66d4889b8c15.zip
(math-small-factorial-table): Remove `eval-when-compile's.
-rw-r--r--lisp/calc/calc-comb.el21
1 files changed, 10 insertions, 11 deletions
diff --git a/lisp/calc/calc-comb.el b/lisp/calc/calc-comb.el
index 90a0a20f5d6..b6182cd710e 100644
--- a/lisp/calc/calc-comb.el
+++ b/lisp/calc/calc-comb.el
@@ -295,17 +295,16 @@
295;;; Factorial and related functions. 295;;; Factorial and related functions.
296 296
297(defconst math-small-factorial-table 297(defconst math-small-factorial-table
298 (eval-when-compile 298 (vector 1 1 2 6 24 120 720 5040 40320 362880 3628800 39916800
299 (vector 1 1 2 6 24 120 720 5040 40320 362880 3628800 39916800 299 (math-read-number-simple "479001600")
300 (math-read-number-simple "479001600") 300 (math-read-number-simple "6227020800")
301 (math-read-number-simple "6227020800") 301 (math-read-number-simple "87178291200")
302 (math-read-number-simple "87178291200") 302 (math-read-number-simple "1307674368000")
303 (math-read-number-simple "1307674368000") 303 (math-read-number-simple "20922789888000")
304 (math-read-number-simple "20922789888000") 304 (math-read-number-simple "355687428096000")
305 (math-read-number-simple "355687428096000") 305 (math-read-number-simple "6402373705728000")
306 (math-read-number-simple "6402373705728000") 306 (math-read-number-simple "121645100408832000")
307 (math-read-number-simple "121645100408832000") 307 (math-read-number-simple "2432902008176640000")))
308 (math-read-number-simple "2432902008176640000"))))
309 308
310(defun calcFunc-fact (n) ; [I I] [F F] [Public] 309(defun calcFunc-fact (n) ; [I I] [F F] [Public]
311 (let (temp) 310 (let (temp)