$NetBSD: patch-ag,v 1.1 2002/12/27 01:27:15 jschauma Exp $

--- pascomp/bapascal.y.orig	Thu Dec 26 20:21:20 2002
+++ pascomp/bapascal.y	Thu Dec 26 20:22:09 2002
@@ -866,7 +866,6 @@
          { gen_exprval($4); emit1(JZER,$1); free_expr($4); }
       | for_header statement
          { emit1(ENDFOR,1+$1); code[$1].y = lc; }
-      ;
       | cbegin statements CEND
          { if (level == 1) emit(COEND); in_cobegin = 0; }
       ;
@@ -885,6 +884,7 @@
 
 the_while   : WHILE
       { $$ = lc; }
+	;
 
 while_expr  : expr
       { gen_exprval($1); free_expr($1); $$ = lc; emit(JZER);}