Mercurial > hg > octave-nkf
diff src/variables.cc @ 722:c40cdd16121e
[project @ 1994-09-21 15:22:21 by jwe]
| author | jwe |
|---|---|
| date | Wed, 21 Sep 1994 15:24:26 +0000 |
| parents | 36ba0576bd1b |
| children | 9b930afbf477 |
line wrap: on
line diff
--- a/src/variables.cc +++ b/src/variables.cc @@ -172,7 +172,7 @@ if (nargin != e_nargin) { if (warn) - error ("%s: expecting function to take %d argument%c", + error ("%s: expecting function to take %d argument%s", warn_for, e_nargin, (e_nargin == 1 ? "" : "s")); return 0; } @@ -193,7 +193,7 @@ return retval; } - char *name = args(1).string_value (); + char *name = args(0).string_value (); if (error_state) { @@ -224,7 +224,7 @@ return retval; } - char *name = args(1).string_value (); + char *name = args(0).string_value (); if (error_state) { @@ -1183,7 +1183,7 @@ mfcn.d_c_mapper = mf->d_c_mapper; mfcn.c_c_mapper = mf->c_c_mapper; - tree_builtin *def = new tree_builtin (2, 1, mfcn, mf->name); + tree_builtin *def = new tree_builtin (1, 1, mfcn, mf->name); sym_rec->define (def);