Commits

camlspotter committed 2674819

removed locident

  • Participants
  • Parent commits b410971
  • Branches p4hack

Comments (0)

Files changed (1)

ocaml/plparser.ml

 open Location
 open Asttypes
 open Longident
-open Locident
 open Parsetree
 
 let mktyp d =
   { pcl_desc = d; pcl_loc = symbol_rloc() }
 let mkcty d =
   { pcty_desc = d; pcty_loc = symbol_rloc() }
-let mklocident d =
-  { lident_desc = d; lident_loc = symbol_rloc() }
 
 let reloc_pat x = { x with ppat_loc = symbol_rloc () };;
 let reloc_exp x = { x with pexp_loc = symbol_rloc () };;
 
       )
 
+(* Oh, they are for my own modifs. Not existing in the vanilla ocaml.
   method locident = rule "locident" (fun () -> dummy
     <|> case "locident_0" (perform
 
            return (fun () ->  mklocident (LLdot(v_1, v_3)) ))
 
       )
+*)
 
 end
 (* /rules *)