[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc-comb.el,v
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-comb.el,v |
Date: |
Fri, 22 Jun 2007 06:04:46 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Jay Belanger <jpb> 07/06/22 06:04:45
Index: calc-comb.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc-comb.el,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- calc-comb.el 22 Jun 2007 01:13:01 -0000 1.18
+++ calc-comb.el 22 Jun 2007 06:04:45 -0000 1.19
@@ -295,7 +295,9 @@
;;; Factorial and related functions.
(defconst math-small-factorial-table
- (vector 1 1 2 6 24 120 720 5040 40320 362880
+ (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")
@@ -306,7 +308,7 @@
(math-read-number-simple "355687428096000")
(math-read-number-simple "6402373705728000")
(math-read-number-simple "121645100408832000")
- (math-read-number-simple "2432902008176640000")))
+ (math-read-number-simple "2432902008176640000"))))
(defun calcFunc-fact (n) ; [I I] [F F] [Public]
(let (temp)