replace locals in guards

bdacode · May 31, 2013 · fdd4226 · fdd4226
1 parent e6c6c6a
commit fdd4226
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/codegen.ml b/codegen.ml
@@ -1615,6 +1615,7 @@ module PatternMatchConversion = struct
 			to_typed_ast cctx (cctx.dt_lookup.(i))
 		| Expr e -> replace_locals cctx e
 		| Guard (e,dt1,dt2) ->
+			let e = replace_locals cctx e in
 			begin match dt2 with
 			| None -> mk (TIf(e,to_typed_ast cctx dt1,None)) t_dynamic e.epos
 			| Some dt ->