New upstream version 3b5upstream/3b5upstream

1 files changed, 2 insertions, 4 deletions

diff --git a/root.scm b/root.scm
index 667f05f..a7b5b6b 100644..100755
--- a/root.scm
+++ b/root.scm
@@ -207,10 +207,8 @@
 		      (bracket-iter x1 f1 #f x0 f0 #f count))
 		     ((= f0 f1) #f)
 		     (else
-		      (let* ((xnew (+ x0 (* (- (/ f0 (- f1 f0))) (- x1 x0))))
-			     (fnew (f xnew))
-			     (fmax (max (abs f1) (abs fnew))))
-			(secant-iter x1 f1 xnew fnew (+ count 1)))))))))))
+		      (let ((xnew (+ x0 (* (- (/ f0 (- f1 f0))) (- x1 x0)))))
+			(secant-iter x1 f1 xnew (f xnew) (+ count 1)))))))))))
 ;@
 (define (secant:find-root f x0 x1 prec)
   (secant:find-root-1 f x0 x1 prec #f))