# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1196139413 0
# Node ID 83c2e8f0909ece05f586b1cc671b36fa4caa0cab
# Parent  8337a257fe943592162b1cd290f018fe0eaea661
(math-map-binop): New function.
(calc-curve-fit): Replace `mapcar*' by `math-map-binop'.

diff -r 8337a257fe94 -r 83c2e8f0909e lisp/calc/calcalg3.el
--- a/lisp/calc/calcalg3.el	Tue Nov 27 04:53:27 2007 +0000
+++ b/lisp/calc/calcalg3.el	Tue Nov 27 04:56:53 2007 +0000
@@ -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