[Emacs-diffs] Changes to emacs/lisp/calc/calcalg3.el,v

[Jay Belanger]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jay Belanger <jpb>      07/11/27 04:56:53

Index: calcalg3.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calcalg3.el,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -b -r1.24 -r1.25
--- calcalg3.el 27 Nov 2007 04:01:42 -0000      1.24
+++ calcalg3.el 27 Nov 2007 04:56:53 -0000      1.25
@@ -43,6 +43,13 @@
 (declare-function math-max-list "calc-arith" (a b))
 
 
+(defun math-map-binop (binop args1 args2)
+  "Apply BINOP to the elements of the lists ARGS1 and ARGS2"
+  (if args1
+      (cons
+       (funcall binop (car args1) (car args2))
+       (funcall 'math-map-binop binop (cdr args1) (cdr args2)))))
+
 (defun calc-find-root (var)
   (interactive "sVariable(s) to solve for: ")
   (calc-slow-wrapper
@@ -250,7 +257,7 @@
                               (nth 1 plot)
                               (cons
                                'vec
-                               (mapcar* 'calcFunc-div
+                               (math-map-binop 'calcFunc-div
                                         (cdr (nth 2 plot))
                                         (cdr (nth 1 plot)))))))
               (calc-fit-hubbert-linear-curve func))