Mercurial > hg > octave-nkf

diff src/pt-colon.cc @ 3965:edd758a7ca8d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-06-28 19:00:56 by jwe]
author jwe
date Fri, 28 Jun 2002 19:00:56 +0000
parents bf6116ca10eb
children 6e86256e9c54
line wrap: on
line diff
--- a/src/pt-colon.cc
+++ b/src/pt-colon.cc
@@ -151,10 +151,8 @@
 
   if (error_state)
     {
-      if (error_state)
-	eval_error ();
-
-      return octave_value ();
+      retval = octave_value ();
+      eval_error ();
     }
 
   return retval;
@@ -163,14 +161,11 @@
 void
 tree_colon_expression::eval_error (const std::string& s)
 {
-  if (error_state > 0)
-    {
-      if (! s.empty ())
-	::error ("%s", s.c_str ());
+  if (! s.empty ())
+    ::error ("%s", s.c_str ());
 
-      ::error ("evaluating colon expression near line %d column %d",
-	       line (), column ());
-    }
+  ::error ("evaluating colon expression near line %d column %d",
+	   line (), column ());
 }
 
 void