|
@@ -115,7 +115,6 @@ let for_to_while node =
|
|
|
Assign (_stop, None, stop, locof stop);
|
|
Assign (_stop, None, stop, locof stop);
|
|
|
Assign (_step, None, step, locof step);
|
|
Assign (_step, None, step, locof step);
|
|
|
While (cond, traverse new_vars (Block (
|
|
While (cond, traverse new_vars (Block (
|
|
|
- (* TODO: check for illegal assigments of counter in body *)
|
|
|
|
|
block_body (replace_var counter _i body) @
|
|
block_body (replace_var counter _i body) @
|
|
|
[Assign (_i, None, Binop (Add, vi, vstep, noloc), noloc)]
|
|
[Assign (_i, None, Binop (Add, vi, vstep, noloc), noloc)]
|
|
|
)), loc);
|
|
)), loc);
|