From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Tue, 27 Nov 2007 04:56:53 +0000 (+0000)
Subject: (math-map-binop): New function.
X-Git-Tag: emacs-pretest-23.0.90~9418
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e5a5704e499899fa73aa0d93613d140b4d4fb7c4;p=emacs.git

(math-map-binop): New function.
(calc-curve-fit): Replace `mapcar*' by `math-map-binop'.
---

diff --git a/lisp/calc/calcalg3.el b/lisp/calc/calcalg3.el
index 5d129b37f7a..374b0487cfe 100644
--- a/lisp/calc/calcalg3.el
+++ b/lisp/calc/calcalg3.el
@@ -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,9 +257,9 @@
                               (nth 1 plot)
                               (cons
                                'vec
-                               (mapcar* 'calcFunc-div
-                                        (cdr (nth 2 plot))
-                                        (cdr (nth 1 plot)))))))
+                               (math-map-binop 'calcFunc-div
+                                               (cdr (nth 2 plot))
+                                               (cdr (nth 1 plot)))))))
               (calc-fit-hubbert-linear-curve func))
 	     ((memq key '(?e ?E))
 	      (calc-get-fit-variables calc-curve-nvars