# HG changeset patch
# User jwe
# Date 1197497338 0
# Node ID dc9b00ab5aac93f56bf9137005c30dadf5a88c8d
# Parent  26f42a14d4f645a365fd1231b414799b2ec29b2e
[project @ 2007-12-12 22:08:58 by jwe]

diff -r 26f42a14d4f6 -r dc9b00ab5aac scripts/ChangeLog
--- a/scripts/ChangeLog	Wed Dec 12 22:05:38 2007 +0000
+++ b/scripts/ChangeLog	Wed Dec 12 22:08:58 2007 +0000
@@ -1,7 +1,7 @@
 2007-12-12  John W. Eaton  <jwe@octave.org>
 
 	* linear-algebra/condest.m: Use nargin instead of size(varargin,2).	
-	Allow 6 arguments.
+	Allow 6 arguments.  Use issquare.
 
 	* plot/__go_draw_axes__.m: Handle the axes layer property.
 
diff -r 26f42a14d4f6 -r dc9b00ab5aac scripts/linear-algebra/condest.m
--- a/scripts/linear-algebra/condest.m	Wed Dec 12 22:05:38 2007 +0000
+++ b/scripts/linear-algebra/condest.m	Wed Dec 12 22:08:58 2007 +0000
@@ -112,11 +112,11 @@
   default_t = 5;
 
   if (ismatrix (varargin{1}))
-    n = size (varargin{1}, 1);
-    if (n != size (varargin{1}, 2))
+    A = varargin{1};
+    n = issquare (A);
+    if (! n)
       error ("condest: matrix must be square.");
     endif
-    A = varargin{1};
 
     if (nargin > 1)
       if (isscalar (varargin{2}))