Advertisement
Guest User

Untitled

a guest
Sep 14th, 2011
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.39 KB | None | 0 0
  1. --- src/pa_odn.ml 2011-09-14 10:40:09.900536751 +0400
  2. +++ src/pa_odn.ml 2011-09-14 10:40:09.923870009 +0400
  3. @@ -31,6 +31,15 @@
  4. open Ast;;
  5. open Pa_type_conv;;
  6.  
  7. +
  8. +module Gen = struct
  9. + include Gen
  10. +
  11. + (* Compatibility functions, removed from type-conv > 2.3 *)
  12. + let idp _loc id = <:patt< $lid:id$ >>
  13. + let ide _loc id = <:expr< $lid:id$ >>
  14. +end
  15. +
  16. let dbug =
  17. prerr_endline
  18. ;;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement