diff options
| author | Graydon Hoare <[email protected]> | 2010-07-13 14:26:38 -0700 |
|---|---|---|
| committer | Graydon Hoare <[email protected]> | 2010-07-13 14:26:38 -0700 |
| commit | bb243b3aef0d17fc82808274d0b3cf92ac3c07d4 (patch) | |
| tree | 9b71189815b8da1697cdfea2277523313b780003 /src/boot/me/trans.ml | |
| parent | Modify _io's fd_buf_reader to do something slightly more useful: produce mult... (diff) | |
| download | rust-bb243b3aef0d17fc82808274d0b3cf92ac3c07d4.tar.xz rust-bb243b3aef0d17fc82808274d0b3cf92ac3c07d4.zip | |
Desugar the head stmts all the way out of STMT_for, rather than stashing them in the node. That's only necessary for STMT_while.
Diffstat (limited to 'src/boot/me/trans.ml')
| -rw-r--r-- | src/boot/me/trans.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/boot/me/trans.ml b/src/boot/me/trans.ml index 85dd5265..df0801b9 100644 --- a/src/boot/me/trans.ml +++ b/src/boot/me/trans.ml @@ -4021,10 +4021,9 @@ let trans_visitor let dst_slot_id = (fst (fo.Ast.for_slot)).id in let dst_slot = get_slot cx dst_slot_id in let dst_cell = cell_of_block_slot dst_slot_id in - let (head_stmts, seq) = fo.Ast.for_seq in + let seq = fo.Ast.for_seq in let (seq_cell, seq_ty) = trans_lval seq in let unit_ty = seq_unit_ty seq_ty in - Array.iter trans_stmt head_stmts; iter_seq_parts ty_params seq_cell seq_cell unit_ty begin fun _ src_cell unit_ty _ -> |