Mercurial > hg > octave-nkf
diff src/utils.cc @ 578:d169be9237fb
[project @ 1994-08-03 20:06:54 by jwe]
author | jwe |
---|---|
date | Wed, 03 Aug 1994 20:07:26 +0000 |
parents | 94fd73d1a0bc |
children | bc813f5eb025 |
line wrap: on
line diff
--- a/src/utils.cc +++ b/src/utils.cc @@ -456,19 +456,19 @@ } char ** -make_argv (const Octave_object& args, const char *warnfor) +make_argv (const Octave_object& args, const char *fcn_name) { char **argv = 0; if (all_strings (args)) { int n = args.length (); argv = new char * [n + 1]; - argv[0] = 0; + argv[0] = strsave (fcn_name); for (int i = 1; i < n; i++) argv[i] = strsave (args(i).string_value ()); } else - error ("%s: expecting all arguments to be strings", warnfor); + error ("%s: expecting all arguments to be strings", fcn_name); return argv; }