# HG changeset patch
# User jwe
# Date 1074745579 0
# Node ID a1b165f5e934be53082c38a166f388353748de03
# Parent  e1b71baef20c585d69ea4f91f2a1dea2cc14e632
[project @ 2004-01-22 04:26:19 by jwe]

diff -r e1b71baef20c -r a1b165f5e934 liboctave/Array-util.cc
--- a/liboctave/Array-util.cc	Thu Jan 22 04:03:21 2004 +0000
+++ b/liboctave/Array-util.cc	Thu Jan 22 04:26:19 2004 +0000
@@ -39,7 +39,7 @@
     {
       for (int i = 0; i < n; i++)
 	{
-	  if (ra_idx(i) < 0 || ra_idx(i) > dimensions (i))
+	  if (ra_idx(i) < 0 || ra_idx(i) > dimensions(i))
 	    {
 	      retval = false;
 	      break;
diff -r e1b71baef20c -r a1b165f5e934 src/ChangeLog
--- a/src/ChangeLog	Thu Jan 22 04:03:21 2004 +0000
+++ b/src/ChangeLog	Thu Jan 22 04:26:19 2004 +0000
@@ -1,5 +1,7 @@
 2004-01-21  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
+	* ov-cell.cc (octave_cell::subsref): Make '{' case N-d aware.
+
 	* ov-scalar.cc (streamoff_array_value): New function.
 	* ov-scalar.h: Provide decl.
 
diff -r e1b71baef20c -r a1b165f5e934 src/ov-cell.cc
--- a/src/ov-cell.cc	Thu Jan 22 04:03:21 2004 +0000
+++ b/src/ov-cell.cc	Thu Jan 22 04:26:19 2004 +0000
@@ -81,16 +81,16 @@
 	      retval = tcell(0,0);
 	    else
 	      {
-		int nr = tcell.rows ();
-		int nc = tcell.columns ();
-		octave_value_list lst (nr * nc, octave_value ());
-		int k = 0;
-		for (int j = 0; j < nc; j++)
-		  for (int i = 0; i < nr; i++)
-		    {
-		      OCTAVE_QUIT;
-		      lst(k++) = tcell(i,j);
-		    }
+		int n = tcell.numel ();
+
+		octave_value_list lst (n, octave_value ());
+
+		for (int i = 0; i < n; i++)
+		  {
+		    OCTAVE_QUIT;
+		    lst(i) = tcell(i);
+		  }
+
 		retval = octave_value (lst, true);
 	      }
 	  }