Mercurial > emacs
changeset 81546:955be775b671
*** empty log message ***
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Fri, 22 Jun 2007 06:02:50 +0000 |
| parents | aa48b88c6f48 |
| children | 4ad09c06607c |
| files | lisp/calc/calc-forms.el |
| diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-forms.el Fri Jun 22 06:00:39 2007 +0000 +++ b/lisp/calc/calc-forms.el Fri Jun 22 06:02:50 2007 +0000 @@ -561,12 +561,12 @@ (math-format-number (math-add math-fd-date (eval-when-compile - (math-read-number "1.7214235"))))) + (math-read-number-simple "1.7214235"))))) ((eq x 'j) (math-format-number (math-add (math-floor math-fd-date) (eval-when-compile - (math-read-number "1721424"))))) + (math-read-number-simple "1721424"))))) ((eq x 'U) (math-format-number (nth 1 (math-date-parts math-fd-date 719164)))) ((progn @@ -942,9 +942,9 @@ (if (or (eq this 'j) (math-integerp num)) (eval-when-compile - (math-read-number "1721424")) + (math-read-number-simple "1721424")) (eval-when-compile - (math-read-number "1.7214235"))))) + (math-read-number-simple "1.7214235"))))) hour (or (nth 3 num) hour) minute (or (nth 4 num) minute) second (or (nth 5 num) second) @@ -1154,19 +1154,19 @@ (if (math-realp date) (list 'date (if (math-integerp date) (math-sub date (eval-when-compile - (math-read-number "1721424"))) + (math-read-number-simple "1721424"))) (setq date (math-sub date (eval-when-compile - (math-read-number "1.7214235")))) + (math-read-number-simple "1.7214235")))) (math-sub date (math-div (calcFunc-tzone zone date) '(float 864 2))))) (if (eq (car date) 'date) (math-add (nth 1 date) (if (math-integerp (nth 1 date)) (eval-when-compile - (math-read-number "1721424")) + (math-read-number-simple "1721424")) (math-add (eval-when-compile - (math-read-number "1.7214235")) + (math-read-number-simple "1.7214235")) (math-div (calcFunc-tzone zone date) '(float 864 2))))) (math-reject-arg date 'datep))))