Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

typecore: remove trivially dead code

master
Thomas Refis 2018-03-21 10:20:25 +00:00 committed by Thomas Refis
parent 7e4085fdb1
commit 79d3f77433
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
typing/typecore.ml
View File

@ -1312,8 +1312,7 @@ and type_pat_aux ~constrs ~labels ~no_existentials ~mode ~explode ~env
let ty_elt = newvar() in
unify_pat_types
loc !env (instance_def (Predef.type_array ty_elt)) expected_ty;
let spl_ann = List.map (fun p -> (p,newvar())) spl in
map_fold_cont (fun (p,_) -> type_pat p ty_elt) spl_ann (fun pl ->
map_fold_cont (fun p -> type_pat p ty_elt) spl (fun pl ->
rp k {
pat_desc = Tpat_array pl;
pat_loc = loc; pat_extra=[];