diff options
| author | Daniel de Rauglaudre <daniel.de_rauglaudre@inria.fr> | 2001-10-02 14:46:10 +0000 |
|---|---|---|
| committer | Daniel de Rauglaudre <daniel.de_rauglaudre@inria.fr> | 2001-10-02 14:46:10 +0000 |
| commit | f9e091bde4a5105395d84eec72e5eb5692b57544 (patch) | |
| tree | 74ea9135881cb03121b6a823b8bea34b13d9d94e /camlp4/meta/pa_r.ml | |
| parent | 12c98272ce5becbcc9c3dcd7f2db196d71be3c86 (diff) | |
-
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3833 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'camlp4/meta/pa_r.ml')
| -rw-r--r-- | camlp4/meta/pa_r.ml | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/camlp4/meta/pa_r.ml b/camlp4/meta/pa_r.ml index 7743797d0..f5c1497e3 100644 --- a/camlp4/meta/pa_r.ml +++ b/camlp4/meta/pa_r.ml @@ -631,10 +631,10 @@ EXTEND <:class_str_item< inherit $ce$ $as:pb$ >> | "value"; (lab, mf, e) = cvalue -> <:class_str_item< value $mut:mf$ $lab$ = $e$ >> - | "method"; "private"; "virtual"; l = label; ":"; t = ctyp -> - <:class_str_item< method private virtual $l$ : $t$ >> - | "method"; "virtual"; pf = OPT "private"; l = label; ":"; t = ctyp -> - <:class_str_item< method virtual $priv:o2b pf$ $l$ : $t$ >> + | "method"; "virtual"; "private"; l = label; ":"; t = ctyp -> + <:class_str_item< method virtual private $l$ : $t$ >> + | "method"; "virtual"; l = label; ":"; t = ctyp -> + <:class_str_item< method virtual $l$ : $t$ >> | "method"; "private"; l = label; fb = fun_binding -> <:class_str_item< method private $l$ = $fb$ >> | "method"; l = label; fb = fun_binding -> @@ -676,10 +676,10 @@ EXTEND [ [ "inherit"; cs = class_type -> <:class_sig_item< inherit $cs$ >> | "value"; mf = OPT "mutable"; l = label; ":"; t = ctyp -> <:class_sig_item< value $mut:o2b mf$ $l$ : $t$ >> - | "method"; "private"; "virtual"; l = label; ":"; t = ctyp -> - <:class_sig_item< method private virtual $l$ : $t$ >> - | "method"; "virtual"; pf = OPT "private"; l = label; ":"; t = ctyp -> - <:class_sig_item< method virtual $priv:o2b pf$ $l$ : $t$ >> + | "method"; "virtual"; "private"; l = label; ":"; t = ctyp -> + <:class_sig_item< method virtual private $l$ : $t$ >> + | "method"; "virtual"; l = label; ":"; t = ctyp -> + <:class_sig_item< method virtual $l$ : $t$ >> | "method"; "private"; l = label; ":"; t = ctyp -> <:class_sig_item< method private $l$ : $t$ >> | "method"; l = label; ":"; t = ctyp -> |