squiid/rust
1
0
Fork 0
Code Issues Pull requests Projects Activity

Bind labels explicitly in fe/cexp.ml. Should fix issue #169.

Browse source
This commit is contained in:
Patrick Walton 2010-10-11 10:51:57 -07:00
parent 594cf63214
commit 99086292ac
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/boot/fe/cexp.ml
View file

@ -344,7 +344,7 @@ let rec eval_cexps (env:env) (exps:cexp array) : cdir array =
and eval_cexp (env:env) (exp:cexp) : cdir array =
match exp with
CEXP_alt {node=ca} ->
CEXP_alt { node = ca; id = _ } ->
let v = eval_pexp env ca.alt_val in
let rec try_arm i =
if i >= Array.length ca.alt_arms
@ -358,7 +358,7 @@ and eval_cexp (env:env) (exp:cexp) : cdir array =
in
eval_cexps env (try_arm 0)
| CEXP_let {node=cl} ->
| CEXP_let { node = cl; id = _ } ->
let ident = cl.let_ident in
let v = eval_pexp env cl.let_value in
let old_bindings = !(env.env_bindings) in