diff options
| author | Graydon Hoare <[email protected]> | 2010-07-01 10:44:27 -0700 |
|---|---|---|
| committer | Graydon Hoare <[email protected]> | 2010-07-01 10:44:27 -0700 |
| commit | a7016ade65b4870e6b270dee3affa640b72c8a29 (patch) | |
| tree | 89dc8ffe497e300ff7f9c74ed0db638ac09c1451 /src/boot/me/transutil.ml | |
| parent | Add STMT_init_box to typestate pass. (diff) | |
| download | rust-a7016ade65b4870e6b270dee3affa640b72c8a29.tar.xz rust-a7016ade65b4870e6b270dee3affa640b72c8a29.zip | |
Implement STMT_init_box in trans, clean up some of the semant table-accessors.
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 |