Mercurial > hg > octave-nkf
diff src/toplev.cc @ 2475:1d7925d6bede
[project @ 1996-11-07 04:36:00 by jwe]
author | jwe |
---|---|
date | Thu, 07 Nov 1996 04:46:54 +0000 |
parents | f667d7ec08b9 |
children | 06595bc7f2d0 |
line wrap: on
line diff
--- a/src/toplev.cc +++ b/src/toplev.cc @@ -755,23 +755,23 @@ { octave_value_list retval; -#if defined (HAVE_ATEXIT) || defined (HAVE_ON_EXIT) int nargin = args.length (); if (nargin == 1) { +#if defined (HAVE_ATEXIT) || defined (HAVE_ON_EXIT) string arg = args(0).string_value (); if (! error_state) octave_atexit_functions.push (arg); else error ("atexit: argument must be a string"); +#else + gripe_not_supported ("atexit"); +#endif } else print_usage ("atexit"); -#else - gripe_not_supported ("atexit"); -#endif return retval; }