2
0
Simon Krajewski 12 жил өмнө
parent
commit
fdd4226180
1 өөрчлөгдсөн 1 нэмэгдсэн , 0 устгасан
  1. 1 0
      codegen.ml

+ 1 - 0
codegen.ml

@@ -1615,6 +1615,7 @@ module PatternMatchConversion = struct
 			to_typed_ast cctx (cctx.dt_lookup.(i))
 			to_typed_ast cctx (cctx.dt_lookup.(i))
 		| Expr e -> replace_locals cctx e
 		| Expr e -> replace_locals cctx e
 		| Guard (e,dt1,dt2) ->
 		| Guard (e,dt1,dt2) ->
+			let e = replace_locals cctx e in
 			begin match dt2 with
 			begin match dt2 with
 			| None -> mk (TIf(e,to_typed_ast cctx dt1,None)) t_dynamic e.epos
 			| None -> mk (TIf(e,to_typed_ast cctx dt1,None)) t_dynamic e.epos
 			| Some dt ->
 			| Some dt ->