浏览代码

fix when enum params differs.

Nicolas Cannasse 18 年之前
父节点
当前提交
34556b3bae
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      typer.ml

+ 1 - 1
typer.ml

@@ -1047,7 +1047,7 @@ let type_matching ctx (enum,params) (e,p) ecases first_case =
 			| EConst (Ident "_") ->
 				None , t
 			| EConst (Ident name) | EConst (Type name) ->
-				let name = (if first_case then add_local ctx name t else PMap.find name ctx.locals_map) in
+				let name = (if first_case then add_local ctx name t else try PMap.find name ctx.locals_map with Not_found -> name) in
 				Some name , t
 			| _ -> invalid()
 		) el args in