14 lines
405 B
OCaml
14 lines
405 B
OCaml
open Ppxlib
|
|
|
|
let rules =
|
|
[
|
|
Extension.V3.declare "raise" Extension.Context.expression
|
|
Ast_pattern.(pstr nil)
|
|
(fun ~ctxt ->
|
|
let loc = Expansion_context.Extension.extension_point_loc ctxt in
|
|
Location.raise_errorf ~loc "An exception, raise be!")
|
|
|> Context_free.Rule.extension;
|
|
]
|
|
|
|
let () = Driver.V2.register_transformation ~rules "raise"
|
|
let () = Driver.standalone ()
|