Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --- src/pa_odn.ml 2011-09-14 10:40:09.900536751 +0400
- +++ src/pa_odn.ml 2011-09-14 10:40:09.923870009 +0400
- @@ -31,6 +31,15 @@
- open Ast;;
- open Pa_type_conv;;
- +
- +module Gen = struct
- + include Gen
- +
- + (* Compatibility functions, removed from type-conv > 2.3 *)
- + let idp _loc id = <:patt< $lid:id$ >>
- + let ide _loc id = <:expr< $lid:id$ >>
- +end
- +
- let dbug =
- prerr_endline
- ;;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement