Mercurial > octave

diff src/lex.l @ 627:739d16c30481

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-08-19 13:23:14 by jwe]
author jwe
date Fri, 19 Aug 1994 13:24:32 +0000
parents 8e4e7e5f307e
children 9ccf86647203
line wrap: on
line diff
--- a/src/lex.l	Fri Aug 19 02:10:54 1994 +0000
+++ b/src/lex.l	Fri Aug 19 13:24:32 1994 +0000
@@ -179,7 +179,7 @@
 			    {
 			      error ("unterminated string constant");
 			      current_input_column = 1;
-			      jump_to_top_level ();
+			      return LEXICAL_ERROR;
 			    }
 			  else
 			    {
@@ -202,7 +202,7 @@
 			    {
 			      error ("unterminated string constant");
 			      current_input_column = 1;
-			      jump_to_top_level ();
+			      return LEXICAL_ERROR;
 			    }
 			  else
 			    {
@@ -232,7 +232,7 @@
 			    {
 			      error ("unterminated string constant");
 			      current_input_column = 1;
-			      jump_to_top_level ();
+			      return LEXICAL_ERROR;
 			    }
 			  else
 			    {
@@ -262,7 +262,7 @@
 			    {
 			      error ("unterminated string constant");
 			      current_input_column = 1;
-			      jump_to_top_level ();
+			      return LEXICAL_ERROR;
 			    }
 			  else
 			    {
@@ -1043,7 +1043,7 @@
 	  else
 	    error ("defining new function near line %d", input_line_number);
 
-	  jump_to_top_level ();  // XXX FIXME XXX
+	  return LEXICAL_ERROR;
 	}
       else
 	{