Mercurial > hg > octave-lyh
diff src/variables.cc @ 4233:ccfdb55c8156
[project @ 2002-12-20 22:43:54 by jwe]
author | jwe |
---|---|
date | Fri, 20 Dec 2002 22:43:55 +0000 |
parents | 0179e6309248 |
children | a5a68c0afe56 |
line wrap: on
line diff
--- a/src/variables.cc +++ b/src/variables.cc @@ -502,7 +502,7 @@ @end example\n\ @end deftypefn") { - octave_value retval = 0.0; + octave_value retval = false; int nargin = args.length (); @@ -522,7 +522,7 @@ symbol_record *sr = curr_sym_tab->lookup (name); - retval = static_cast<double> (sr && sr->is_linked_to_global ()); + retval = (sr && sr->is_linked_to_global ()); return retval; } @@ -671,7 +671,7 @@ @end table\n\ @end deftypefn") { - octave_value retval = 0.0; + octave_value retval = false; int nargin = args.length (); @@ -685,7 +685,7 @@ = (nargin == 2) ? args(1).string_value () : std::string ("any"); if (! error_state) - retval = static_cast<double> (symbol_exist (name, type)); + retval = symbol_exist (name, type); else error ("exist: expecting second argument to be a string"); }