diff options
Diffstat (limited to 'src/boot/me/loop.ml')
| -rw-r--r-- | src/boot/me/loop.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/boot/me/loop.ml b/src/boot/me/loop.ml index 1fbb8223..b5548e2c 100644 --- a/src/boot/me/loop.ml +++ b/src/boot/me/loop.ml @@ -114,6 +114,8 @@ let loop_depth_visitor let visit_block_pre b = if Hashtbl.mem cx.ctxt_block_is_loop_body b.id then push_loop (); + let fcx = Stack.top fcxs in + htab_put cx.ctxt_block_loop_depths b.id fcx.current_depth; inner.Walk.visit_block_pre b in |