diff options
| author | Nicolas Pouillard <np@nicolaspouillard.fr> | 2006-07-08 17:21:32 +0000 |
|---|---|---|
| committer | Nicolas Pouillard <np@nicolaspouillard.fr> | 2006-07-08 17:21:32 +0000 |
| commit | 29758bdd0bb83c337b66f2f5bccb1d8eabfabda7 (patch) | |
| tree | 655bfd5311d1f920f740861be66fe27ef1462b6f /camlp4/Camlp4 | |
| parent | 3f0cb35acd9b78612156e9986b9fc69bd3892d6a (diff) | |
make bootstrap
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7487 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'camlp4/Camlp4')
| -rw-r--r-- | camlp4/Camlp4/Struct/MetaAst.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/camlp4/Camlp4/Struct/MetaAst.ml b/camlp4/Camlp4/Struct/MetaAst.ml index 77434e31a..586099257 100644 --- a/camlp4/Camlp4/Struct/MetaAst.ml +++ b/camlp4/Camlp4/Struct/MetaAst.ml @@ -202,7 +202,7 @@ module Make (MetaLoc : META_LOC) = struct [ <:match_case@_loc<>> -> <:expr< Ast.McNil $meta_loc_expr _loc$ >> | <:match_case@_loc< $a1$ | $a2$ >> -> <:expr< Ast.McOr $meta_loc_expr _loc$ $meta_a a1$ $meta_a a2$ >> | <:match_case@_loc< $p$ when $e1$ -> $e2$ >> -> <:expr< Ast.McArr $meta_loc_expr _loc$ $meta_p p$ $meta_e e1$ $meta_e e2$ >> - | Ast.McAnt _loc s -> <:expr< $anti:s$ >> ] + | <:match_case@_loc< $anti:s$ >> -> <:expr< $anti:s$ >> ] and binding = fun [ <:binding@_loc<>> -> <:expr< Ast.BiNil $meta_loc_expr _loc$ >> @@ -508,7 +508,7 @@ module Make (MetaLoc : META_LOC) = struct [ <:match_case@_loc<>> -> <:patt< Ast.McNil $meta_loc_patt _loc$ >> | <:match_case@_loc< $a1$ | $a2$ >> -> <:patt< Ast.McOr $meta_loc_patt _loc$ $meta_a a1$ $meta_a a2$ >> | <:match_case@_loc< $p$ when $e1$ -> $e2$ >> -> <:patt< Ast.McArr $meta_loc_patt _loc$ $meta_p p$ $meta_e e1$ $meta_e e2$ >> - | Ast.McAnt _loc s -> <:patt< $anti:s$ >> ] + | <:match_case@_loc< $anti:s$ >> -> <:patt< $anti:s$ >> ] and binding = fun [ <:binding@_loc<>> -> <:patt< Ast.BiNil $meta_loc_patt _loc$ >> |