Mercurial > hg > octave-nkf

diff src/ov-usr-fcn.cc @ 6591:fc0218995ee7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-04-27 02:17:34 by jwe]
author jwe
date Fri, 27 Apr 2007 02:17:34 +0000
parents c7901606ba70
children 86354a8cd6a7
line wrap: on
line diff
--- a/src/ov-usr-fcn.cc
+++ b/src/ov-usr-fcn.cc
@@ -381,16 +381,19 @@
 
 	Cell varargout;
 
-	symbol_record *sr = local_sym_tab->lookup ("varargout");
-
-	if (sr && sr->is_variable ())
+	if (ret_list->takes_varargs ())
 	  {
-	    octave_value v = sr->def ();
+	    symbol_record *sr = local_sym_tab->lookup ("varargout");
+
+	    if (sr && sr->is_variable ())
+	      {
+		octave_value v = sr->def ();
 
-	    varargout = v.cell_value ();
+		varargout = v.cell_value ();
 
-	    if (error_state)
-	      error ("expecting varargout to be a cell array object");
+		if (error_state)
+		  error ("expecting varargout to be a cell array object");
+	      }
 	  }
 
 	if (! error_state)