Explorar o código

replace locals in guards

Simon Krajewski %!s(int64=12) %!d(string=hai) anos
pai
achega
fdd4226180
Modificáronse 1 ficheiros con 1 adicións e 0 borrados
  1. 1 0
      codegen.ml

+ 1 - 0
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 ->