diff options
| author | Alain Frisch <alain@frisch.fr> | 2013-04-10 09:17:22 +0000 |
|---|---|---|
| committer | Alain Frisch <alain@frisch.fr> | 2013-04-10 09:17:22 +0000 |
| commit | ec9dacb3f156256675adbc5f1645b0841ed58fb0 (patch) | |
| tree | 2b83c0843f4c6d1740c82416fb5a4429a53d5b88 /camlp4/Camlp4/Struct | |
| parent | d84ae411827a04f4240f94139e2d8c4aa64b139e (diff) | |
Support for attributes on class type fields.
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/extension_points@13494 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'camlp4/Camlp4/Struct')
| -rw-r--r-- | camlp4/Camlp4/Struct/Camlp4Ast2OCamlAst.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/camlp4/Camlp4/Struct/Camlp4Ast2OCamlAst.ml b/camlp4/Camlp4/Struct/Camlp4Ast2OCamlAst.ml index 69e708ba8..b06af203e 100644 --- a/camlp4/Camlp4/Struct/Camlp4Ast2OCamlAst.ml +++ b/camlp4/Camlp4/Struct/Camlp4Ast2OCamlAst.ml @@ -70,7 +70,7 @@ module Make (Ast : Sig.Camlp4Ast) = struct value mkcty loc d = {pcty_desc = d; pcty_loc = mkloc loc}; value mkcl loc d = {pcl_desc = d; pcl_loc = mkloc loc}; value mkcf loc d = { pcf_desc = d; pcf_loc = mkloc loc; pcf_attributes = []}; - value mkctf loc d = { pctf_desc = d; pctf_loc = mkloc loc; }; + value mkctf loc d = { pctf_desc = d; pctf_loc = mkloc loc; pctf_attributes = []}; value mkpolytype t = match t.ptyp_desc with |