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

Merge pull request #271 from mshinwell/record_mutability 

GPR#271: Fix incorrect mutability flag when records are built using "with"
master
Mark Shinwell 2015-11-02 14:48:01 +00:00
parent 2907c4971e f923aa767b
commit b5d906778e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
bytecomp/translcore.ml
View File

@ -1170,7 +1170,8 @@ and transl_record env all_labels repres lbl_expr_list opt_init_expr =
lbl_expr_list;
let ll = Array.to_list lv in
let mut =
if List.exists (fun (_, lbl, expr) -> lbl.lbl_mut = Mutable) lbl_expr_list
if List.exists (fun lbl -> lbl.lbl_mut = Mutable)
(Array.to_list all_labels)
then Mutable
else Immutable in
let lam =