diff options
| author | Alain Frisch <alain@frisch.fr> | 2014-10-14 14:19:05 +0000 |
|---|---|---|
| committer | Alain Frisch <alain@frisch.fr> | 2014-10-14 14:19:05 +0000 |
| commit | 65d07466f9d7ec0829ff6f4ba00d811c1eaf39ad (patch) | |
| tree | 0a9708f252961d48e282c44211f6055f30950afd | |
| parent | 2ef9c9f5924ad34698f4d33d0431936897585e46 (diff) | |
| download | ocaml-65d07466f9d7ec0829ff6f4ba00d811c1eaf39ad.tar.gz | |
Bug fix.
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/constructors_with_record5@15549 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | toplevel/genprintval.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/toplevel/genprintval.ml b/toplevel/genprintval.ml index bedebd224f..9af483ca99 100644 --- a/toplevel/genprintval.ml +++ b/toplevel/genprintval.ml @@ -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 -> |