pa_bof.ml

   1: let insert_this () =
   2:   let loc = Token.dummy_loc in
   3:   (<:str_item< value version = "1.2.3" >>, loc)
   4: 
   5: let _ =
   6:   let first = ref true in
   7:   let parse strm =
   8:     let (l, stopped) = Grammar.Entry.parse Pcaml.implem strm in
   9:     let l' = 
  10:       if !first then
  11:         insert_this () :: l
  12:       else l in
  13:     (l', stopped) in
  14:   Pcaml.parse_implem := parse

This document was generated using caml2html