Permalink
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...
1 parent 88e8bec commit 36b25ec2f6847cd8f27862e2bde4f79a35dd975b @alainfrisch alainfrisch committed May 7, 2014
Showing with 2 additions and 2 deletions.
  1. +1 −1 parsing/printast.ml
  2. +1 −1 typing/printtyped.ml
View
@@ -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
@@ -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

0 comments on commit 36b25ec

Please sign in to comment.