diff options
Diffstat (limited to 'ocaml-binary-annot/camlp4/test/fixtures/pr4357.ml')
| -rw-r--r-- | ocaml-binary-annot/camlp4/test/fixtures/pr4357.ml | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/ocaml-binary-annot/camlp4/test/fixtures/pr4357.ml b/ocaml-binary-annot/camlp4/test/fixtures/pr4357.ml new file mode 100644 index 0000000000..2d84004acb --- /dev/null +++ b/ocaml-binary-annot/camlp4/test/fixtures/pr4357.ml @@ -0,0 +1,16 @@ +open Camlp4.PreCast + +let sample_expr _loc _loc_name s = + Printf.eprintf "file=%s line=%d offset=%d bol=%d\n%!" + (Loc.file_name _loc) + (Loc.start_line _loc) + (Loc.start_off _loc) + (Loc.start_bol _loc); + <:expr< $lid:s$ >> +;; + +Quotation.add + "sample" + Syntax.Quotation.DynAst.expr_tag + sample_expr +;; |