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	Wed Nov 06 19:16:08 1996 +0000
+++ b/src/toplev.cc	Thu Nov 07 04:46:54 1996 +0000
@@ -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;
 }