# HG changeset patch
# User jwe
# Date 815664243 0
# Node ID 0d0c53b02a33c62ad065fbef3a409e2926b88fe3
# Parent  43df82dfb1f7384fcac09e0790720db46c67414d
[project @ 1995-11-06 13:24:03 by jwe]

diff --git a/libcruft/misc/dostop.c b/libcruft/misc/dostop.c
--- a/libcruft/misc/dostop.c
+++ b/libcruft/misc/dostop.c
@@ -25,14 +25,17 @@
 #include "config.h"
 #endif
 
+#ifdef OCTAVE_SOURCE
 extern void jump_to_top_level (void);
+#endif
 
 /* All the STOP statements in the Fortran routines have been replaced
    with a call to XSTOPX, defined in the file libcruft/misc/xstopx.f.
 
-   The XSTOPX function calls this function, which calls
-   jump_to_top_level(), and the user will end up at the top level
-   instead of the shell prompt. */
+   The XSTOPX function calls this function.  If OCTAVE_SOURCE is
+   defined, this function calls jump_to_top_level(), and the user will
+   end up at the top level instead of the shell prompt.  Otherwise, we
+   just stop. */
 
 volatile void
 #if defined (F77_APPEND_UNDERSCORE)
@@ -41,7 +44,11 @@
 dostop (void)
 #endif
 {
+#ifdef OCTAVE_SOURCE
   jump_to_top_level ();
+#else
+  exit (1);
+#endif
 }
 
 /*