Source file `metaquot_ppx.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
let mapper = object (self)
  inherit Ppxlib.Ast_traverse.map as super

  method! expression exp =
    Gc.minor (); (* This seems to solve a segfault in OCaml 5.0
      but this is weird!*)
    Metaquot.Exp.lift { expression = super#expression; pattern = super#pattern }
      exp

  method! pattern =
    Metaquot.Pat.lift { expression = super#expression; pattern = super#pattern }
end

let () =
  Ppxlib.Driver.register_transformation "metaquot" ~impl:mapper#structure