Mercurial > octave-nkf

diff src/lex.l @ 341:4115f7713851

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-02-07 07:59:44 by jwe]
author jwe
date Mon, 07 Feb 1994 08:00:18 +0000
parents 57cdcf21c1df
children 916b341acffd
line wrap: on
line diff
--- a/src/lex.l	Mon Feb 07 07:35:32 1994 +0000
+++ b/src/lex.l	Mon Feb 07 08:00:18 1994 +0000
@@ -1022,9 +1022,8 @@
 
 	  if ((reading_fcn_file || reading_script_file)
 	      && curr_fcn_file_name != (char *) NULL)
-	    error ("defining new function near line %d of file `%s'",
-		   input_line_number,
-		   curr_fcn_file_name);
+	    error ("defining new function near line %d of file `%s.m'",
+		   input_line_number, curr_fcn_file_name);
 	  else
 	    error ("defining new function near line %d", input_line_number);
 
@@ -1499,7 +1498,7 @@
 	  else
 	    {
 	      warning ("ignoring trailing garbage after end of function\n\
-         near line %d of file `%s'", lineno, curr_fcn_file_name);
+         near line %d of file `%s.m'", lineno, curr_fcn_file_name);
 	      
 	      yyunput ('\n', yytext);
 	      return;