From cc748e4f330bdf60047d1f5ed2bc575a9633a965 Mon Sep 17 00:00:00 2001
From: Andrei Paskevich <andrei@lri.fr>
Date: Mon, 15 Oct 2018 14:45:07 +0200
Subject: [PATCH] Parser: fix erroneous variable redefinition

thanks to Sylvain for noticing.
---
 src/parser/parser.mly | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/parser/parser.mly b/src/parser/parser.mly
index 9b0dc7364..ef949201c 100644
--- a/src/parser/parser.mly
+++ b/src/parser/parser.mly
@@ -969,8 +969,8 @@ single_expr_:
             let e = { e with expr_desc = Ewhile (e1, inv, var, cont e2) } in
             let id = { id with id_str = id.id_str ^ break_id } in
             Eoptexn (id, Ity.MaskVisible, e)
-        | Efor (id, ef, dir, et, inv, e1) ->
-            let e = { e with expr_desc = Efor (id,ef,dir,et,inv,cont e1) } in
+        | Efor (i, ef, dir, et, inv, e1) ->
+            let e = { e with expr_desc = Efor (i,ef,dir,et,inv,cont e1) } in
             let id = { id with id_str = id.id_str ^ break_id } in
             Eoptexn (id, Ity.MaskVisible, e)
         | d -> d in
@@ -981,7 +981,7 @@ single_expr_:
       let e = { $5 with expr_desc = Eoptexn (id_c, Ity.MaskVisible, $5) } in
       let e = mk_expr (Ewhile ($2, fst $4, snd $4, e)) $startpos $endpos in
       Eoptexn (id_b, Ity.MaskVisible, e) }
-| FOR lident_nq EQUAL seq_expr for_direction seq_expr DO invariant* loop_body DONE
+| FOR lident_nq EQUAL seq_expr for_dir seq_expr DO invariant* loop_body DONE
     { let id_b = mk_id break_id $startpos($7) $endpos($7) in
       let id_c = mk_id continue_id $startpos($7) $endpos($7) in
       let e = { $9 with expr_desc = Eoptexn (id_c, Ity.MaskVisible, $9) } in
@@ -1100,7 +1100,7 @@ assertion_kind:
 | ASSUME  { Expr.Assume }
 | CHECK   { Expr.Check }
 
-for_direction:
+for_dir:
 | TO      { Expr.To }
 | DOWNTO  { Expr.DownTo }
 
-- 
2.24.1