Mercurial > hg > octave-lojdl
changeset 3556:0343ffea47ef
[project @ 2000-02-03 04:07:55 by jwe]
author | jwe |
---|---|
date | Thu, 03 Feb 2000 04:07:55 +0000 |
parents | 0b00b69ab2fd |
children | 2e5d35d7f60c |
files | src/pt-cell.cc src/pt-cell.h |
diffstat | 2 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/pt-cell.cc +++ b/src/pt-cell.cc @@ -85,6 +85,19 @@ return retval; } +octave_value_list +tree_cell::rvalue (int nargout) +{ + octave_value_list retval; + + if (nargout > 1) + error ("invalid number of output arguments for cell array"); + else + retval = rvalue (); + + return retval; +} + void tree_cell::accept (tree_walker& tw) {