Mercurial > hg > octave-nkf
comparison src/variables.cc @ 564:6e376eb337dd
[project @ 1994-07-26 00:56:24 by jwe]
author | jwe |
---|---|
date | Tue, 26 Jul 1994 00:56:24 +0000 |
parents | 75a371805554 |
children | 94fd73d1a0bc |
comparison
equal
deleted
inserted
replaced
563:6833834adca7 | 564:6e376eb337dd |
---|---|
435 | 435 |
436 DEFUN ("is_global", Fis_global, Sis_global, 2, 1, | 436 DEFUN ("is_global", Fis_global, Sis_global, 2, 1, |
437 "is_global (X): return 1 if the string X names a global variable\n\ | 437 "is_global (X): return 1 if the string X names a global variable\n\ |
438 otherwise, return 0.") | 438 otherwise, return 0.") |
439 { | 439 { |
440 Octave_object retval (0.0); | 440 Octave_object retval = 0.0; |
441 | 441 |
442 int nargin = args.length (); | 442 int nargin = args.length (); |
443 | 443 |
444 if (nargin != 2 || ! args(1).is_string_type ()) | 444 if (nargin != 2 || ! args(1).is_string_type ()) |
445 { | 445 { |