[Emacs-diffs] /srv/bzr/emacs/trunk r111068: * lisp/calc/calc-forms.el (math-date-to-iso-dt): Fix typo.

[Jay Belanger]

------------------------------------------------------------
revno: 111068
committer: Jay Belanger <address@hidden>
branch nick: trunk
timestamp: Sun 2012-12-02 19:01:13 -0600
message:
  * lisp/calc/calc-forms.el (math-date-to-iso-dt): Fix typo.
modified:
  lisp/calc/calc-forms.el

=== modified file 'lisp/calc/calc-forms.el'
--- a/lisp/calc/calc-forms.el   2012-12-03 00:54:11 +0000
+++ b/lisp/calc/calc-forms.el   2012-12-03 01:01:13 +0000
@@ -465,7 +465,7 @@
                          (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 
@@ -739,8 +739,6 @@
          (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)))