]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/ocaml/cic_annotations/cicAnnotationParser.ml
* Major code cleanup.
[helm.git] / helm / ocaml / cic_annotations / cicAnnotationParser.ml
index 9c4a58d5394eb4f4ea4558796b17caec9da2eaf9..7b4fdad6a5e3d328c8823ff4022622177f0974d9 100644 (file)
@@ -35,7 +35,7 @@ class warner =
 
 exception EmptyUri;;
 
-let annotate filename ids_to_targets =
+let get_annotations filename =
  let module Y = Pxp_yacc in
   try 
     let d =
@@ -47,7 +47,7 @@ let annotate filename ids_to_targets =
        Y.default_spec
 
     in
-     CicAnnotationParser2.annotate ids_to_targets d#root
+     CicAnnotationParser2.get_annotations d#root
   with
    e ->
      print_endline (Pxp_types.string_of_exn e) ;