[q-lang-cvs] q/src qc.y,1.71,1.72

[Albert G. <ag...@us...>]

Update of /cvsroot/q-lang/q/src
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv16364/src

Modified Files:
	qc.y 
Log Message:
fix broken error rule (bug reported by Rob Hubbard)

Index: qc.y
===================================================================
RCS file: /cvsroot/q-lang/q/src/qc.y,v
retrieving revision 1.71
retrieving revision 1.72
diff -C2 -d -r1.71 -r1.72
*** qc.y	27 Oct 2007 18:59:05 -0000	1.71
--- qc.y	7 Dec 2007 21:16:47 -0000	1.72
***************
*** 145,160 ****
  				{ newrule(); }
  		| program EOFTOK { wrapover(); }
- /* I disabled this one, most often it confuses the parser -AG
- 		| program error { if (yychar == EOFTOK) wrapover(); }
- 		  ';' '='
- 				{ yyerrok; srcstate(); newrule(); newdecl(); }
- 		  body
- 				{ newrule(); }
- */
  		| program error { if (yychar == EOFTOK) wrapover(); }
! 		  ';'
  				{ yyerrok; srcstate(); newrule(); newdecl(); clear_imports(); }
  		;
  
  imports		: IMPORT import
  		| imports ',' import
--- 145,156 ----
  				{ newrule(); }
  		| program EOFTOK { wrapover(); }
  		| program error { if (yychar == EOFTOK) wrapover(); }
! 		  stopsyms
  				{ yyerrok; srcstate(); newrule(); newdecl(); clear_imports(); }
  		;
  
+ stopsyms	: ';' | EOFTOK
+ 		;
+ 
  imports		: IMPORT import
  		| imports ',' import