# HG changeset patch
# User jwe
# Date 845142102 0
# Node ID 81298641458daf5a1abd78ec692d69435e29783f
# Parent  e807c025bfe89f29a430bfdc0750528b7eca1ed4
[project @ 1996-10-12 17:41:42 by jwe]

diff --git a/liboctave/Array-idx.h b/liboctave/Array-idx.h
--- a/liboctave/Array-idx.h
+++ b/liboctave/Array-idx.h
@@ -63,6 +63,19 @@
   idx_vector *tmp = get_idx ();
   idx_vector idx = tmp[0];
 
+  retval = index (idx);
+
+  clear_index ();
+
+  return retval;
+}
+
+template <class T>
+Array<T>
+Array<T>::index (idx_vector& idx) const
+{
+  Array<T> retval;
+
   int len = length ();
 
   int n = idx.freeze (len, "vector", liboctave_pzo_flag);
@@ -94,10 +107,9 @@
 	    }
 	}
     }
+
   // idx_vector::freeze() printed an error message for us.
 
-  clear_index ();
-
   return retval;
 }