From 1bf3989cd4ebffdeeebfaaca83c6866416c3908a Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Sun, 2 Dec 2012 19:05:08 -0600 Subject: [PATCH] * lisp/calc/calc-forms.el (math-date-to-iso-dt): Fix typo. --- lisp/calc/calc-forms.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/calc/calc-forms.el b/lisp/calc/calc-forms.el index 9915799002f..197bc6acee5 100644 --- a/lisp/calc/calc-forms.el +++ b/lisp/calc/calc-forms.el @@ -465,13 +465,13 @@ in the Gregorian calendar and the remaining part determines the time." (let ((y approx) (sum 0)) (while (>= (math-compare date - (math-iso-dt-to-absolute (setq y (math-add y 1)) 1 1)) 0) + (math-absolute-from-iso-dt (setq y (math-add y 1)) 1 1)) 0) (setq sum (+ sum 1))) sum)))) (list year (math-add (car (math-idivmod - (math-sub date (math-iso-dt-to-absolute year 1 1)) + (math-sub date (math-absolute-from-iso-dt year 1 1)) 7)) 1) (cdr (math-idivmod date 7))))) @@ -739,8 +739,6 @@ as measured in the integer number of days before December 31, 1 BC (Gregorian)." (progn (or math-fd-iso-dt (setq math-fd-iso-dt (math-date-to-iso-dt math-fd-date) - jpb math-fd-date - jpbb math-fd-iso-dt math-fd-isoyear (car math-fd-iso-dt) math-fd-isoweek (nth 1 math-fd-iso-dt) math-fd-isoweekday (nth 2 math-fd-iso-dt))) -- 2.39.5