瀏覽代碼

replace locals in guards

Simon Krajewski 12 年之前
父節點
當前提交
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))
 		| 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 ->