Inital import

[l4.git] / l4 / pkg / ocaml / contrib / camlp4 / examples / apply_operator.ml

open Camlp4.PreCast;
AstFilters.register_str_item_filter
  (Ast.map_expr
    (fun
     [ <:expr@loc< $e1$ & $e2$ >> -> <:expr@loc< $e1$ $e2$ >>
     | e -> e ]))#str_item;