# HG changeset patch
# User jwe
# Date 1142452589 0
# Node ID 14313620a2c675dd001b99d71abaa9ef33c994c8
# Parent  602d084346b22a0bb0a6ede64c4f67655abb52e1
[project @ 2006-03-15 19:56:29 by jwe]

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,7 @@
+2006-03-15  John W. Eaton  <jwe@octave.org>
+
+	* polynomial/residue.m: Use & instead of && to generate arg for find.
+
 2006-03-14  Keith Goodman  <kwgoodman@gmail.com>
 
 	* strings/bin2dec.m: Doc fix.
diff --git a/scripts/polynomial/residue.m b/scripts/polynomial/residue.m
--- a/scripts/polynomial/residue.m
+++ b/scripts/polynomial/residue.m
@@ -210,7 +210,7 @@
 
   ## Determine if the poles are (effectively) real.
 
-  index = (abs (p) >= toler && (abs (imag (p)) ./ abs (p) < toler));
+  index = (abs (p) >= toler & (abs (imag (p)) ./ abs (p) < toler));
   p(index) = real (p(index));
 
   ## Find the direct term if there is one.
@@ -229,7 +229,6 @@
     return;
   endif
 
-
   ## We need to determine the number and multiplicity of the roots.
   ##
   ## D  is the number of distinct roots.