Mercurial > hg > octave-nkf

diff src/ov-list.cc @ 4842:fafc79eeaebb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-03-19 22:31:25 by jwe]
author jwe
date Fri, 19 Mar 2004 22:31:25 +0000
parents 81f78a2ff8a6
children 44046bbaa52c
line wrap: on
line diff
--- a/src/ov-list.cc
+++ b/src/ov-list.cc
@@ -76,7 +76,9 @@
 	  {
 	    idx_vector i = tmp_idx (0).index_vector ();
 
-	    retval = octave_list (data.index (i));
+	    Cell tmp = data.index (i);
+
+	    retval = octave_value (new octave_list (tmp));
 	  }
 	else
 	  error ("only one index allowed for lists");
@@ -95,6 +97,8 @@
 
 	    if (tmp.length () == 1)
 	      retval = tmp(0);
+	    else
+	      retval = octave_value (tmp, true);
 	  }
 	else
 	  error ("only one index allowed for lists");