Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Minor tweak to raw dump of parsetree/typedtree.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14758 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
  • Loading branch information...
commit 36b25ec2f6847cd8f27862e2bde4f79a35dd975b 1 parent 88e8bec
@alainfrisch alainfrisch authored
Showing with 2 additions and 2 deletions.
  1. +1 −1  parsing/printast.ml
  2. +1 −1  typing/printtyped.ml
View
2  parsing/printast.ml
@@ -808,8 +808,8 @@ and core_type_x_core_type_x_location i ppf (ct1, ct2, l) =
and constructor_decl i ppf
{pcd_name; pcd_args; pcd_res; pcd_loc; pcd_attributes} =
line i ppf "%a\n" fmt_location pcd_loc;
- attributes i ppf pcd_attributes;
line (i+1) ppf "%a\n" fmt_string_loc pcd_name;
+ attributes i ppf pcd_attributes;
list (i+1) core_type ppf pcd_args;
option (i+1) core_type ppf pcd_res
View
2  typing/printtyped.ml
@@ -780,8 +780,8 @@ and core_type_x_core_type_x_location i ppf (ct1, ct2, l) =
and constructor_decl i ppf {cd_id; cd_name = _; cd_args; cd_res; cd_loc; cd_attributes} =
line i ppf "%a\n" fmt_location cd_loc;
- attributes i ppf cd_attributes;
line (i+1) ppf "%a\n" fmt_ident cd_id;
+ attributes i ppf cd_attributes;
list (i+1) core_type ppf cd_args;
option (i+1) core_type ppf cd_res
Please sign in to comment.
Something went wrong with that request. Please try again.