diff options
Diffstat (limited to 'src/boot/me/transutil.ml')
| -rw-r--r-- | src/boot/me/transutil.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/me/transutil.ml b/src/boot/me/transutil.ml index d7fbb566..9daccd40 100644 --- a/src/boot/me/transutil.ml +++ b/src/boot/me/transutil.ml @@ -153,7 +153,7 @@ let iter_block_slots Hashtbl.iter begin fun key slot_id -> - let slot = referent_to_slot cx slot_id in + let slot = get_slot cx slot_id in fn key slot_id slot end block_slots @@ -180,7 +180,7 @@ let iter_arg_slots begin fun slot_id -> let key = Hashtbl.find cx.ctxt_slot_keys slot_id in - let slot = referent_to_slot cx slot_id in + let slot = get_slot cx slot_id in fn key slot_id slot end ls |