Mercurial > hg > octave-lyh

diff src/error.cc @ 143:7849db4b6dbc
[project @ 1993-10-04 02:36:45 by jwe]
author: jwe
date: Mon, 04 Oct 1993 02:36:58 +0000
parents: 4c130d05db38
children: 49ab724d0a32
--- a/src/error.cc
+++ b/src/error.cc
@@ -31,6 +31,9 @@
 
 #include "error.h"
 
+// Current error state.
+int error_state;
+
 static void
 verror (const char *name, const char *fmt, va_list args)
 {
@@ -72,6 +75,9 @@
 void
 error (const char *fmt, ...)
 {
+  if (! error_state)
+    error_state = 1;
+
   va_list args;
   va_start (args, fmt);
   verror ("error", fmt, args);