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

Bug fix. 

git-svn-id: http://caml.inria.fr/svn/ocaml/branches/constructors_with_record5@15549 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Alain Frisch 2014-10-14 14:19:05 +00:00
parent 2ef9c9f592
commit 65d07466f9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
toplevel/genprintval.ml
View File

@ -307,7 +307,7 @@ module Make(O : OBJ)(EVP : EVALPATH with type valu = O.t) = struct
let r =
tree_of_record_fields depth
env path type_params ty_list
lbls 0
lbls 0 obj
in
Oval_constr(tree_of_constr env path
(Ident.name cd_id),
@ -324,7 +324,7 @@ module Make(O : OBJ)(EVP : EVALPATH with type valu = O.t) = struct
in
tree_of_record_fields depth
env path decl.type_params ty_list
lbl_list pos
lbl_list pos obj
end
| {type_kind = Type_open} ->
tree_of_extension path depth obj
@ -373,7 +373,7 @@ module Make(O : OBJ)(EVP : EVALPATH with type valu = O.t) = struct
end
and tree_of_record_fields depth env path type_params ty_list
lbl_list pos =
lbl_list pos obj =
let rec tree_of_fields pos = function
| [] -> []
| {ld_id; ld_type} :: remainder ->