Mercurial > hg > octave-nkf
diff src/variables.cc @ 4930:bdb307dc8613
[project @ 2004-08-05 04:55:26 by jwe]
author | jwe |
---|---|
date | Thu, 05 Aug 2004 04:55:26 +0000 |
parents | 7b145222fea3 |
children | ed0f3cb6d3d4 |
line wrap: on
line diff
--- a/src/variables.cc +++ b/src/variables.cc @@ -811,10 +811,10 @@ return sym_rec; } -octave_function * +octave_value lookup_function (const std::string& nm) { - octave_function *retval = 0; + octave_value retval; symbol_record *sr = 0; @@ -838,16 +838,16 @@ octave_value v = sr->def (); if (v.is_function ()) - retval = v.function_value (); + retval = v; } return retval; } -octave_user_function * +octave_value lookup_user_function (const std::string& nm) { - octave_user_function *retval = 0; + octave_value retval; symbol_record *sr = 0; @@ -867,11 +867,7 @@ } if (sr) - { - octave_value v = sr->def (); - - retval = v.user_function_value (true); - } + retval = sr->def (); return retval; }