浏览代码

do not handle `identifier => pattern` in a special way, instead allow `_.field(args) => pattern` (closes #2379)

Simon Krajewski 11 年之前
父节点
当前提交
5f4bb34a8c
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      matcher.ml

+ 1 - 1
matcher.ml

@@ -995,7 +995,7 @@ let transform_extractors mctx stl cases =
 					let p = pos e in
 					let ec = EConst (Ident ("__ex" ^ string_of_int (!exc))),snd e in
 					let ecall = match fst e1 with
-						| EConst(Ident s) -> ECall((EField(ec,s),p),[]),p
+						| ECall((EField((EConst(Ident "_"),_),s),_), el) -> ECall((EField(ec,s),p),el),p
 						| _ -> ECall(e1,[ec]),p
 					in
 					ex := (ecall,e2) :: !ex;