8 lines
274 B
OCaml
8 lines
274 B
OCaml
|
open Camlp4.PreCast;;
|
||
|
|
Camlp4_config.antiquotations := true;;
|
||
|
|
let expand_my_quot_expr _loc _loc_name_opt quotation_contents =
|
||
|
|
Printf.eprintf "%S\n%!" quotation_contents;
|
||
|
|
<:expr< dummy >>
|
||
|
|
;;
|
||
|
|
Syntax.Quotation.add "my" Syntax.Quotation.DynAst.expr_tag expand_my_quot_expr;;
|