Some comments (new problems found).

diff --git a/matita/matita/matitaScript.ml b/matita/matita/matitaScript.ml
index 0f7789a89d6fd2655e51a61a582100b0ac06be7c..157906fc8ce3eba402581ccc4c5d54133fcf21f3 100644 (file)
--- a/matita/matita/matitaScript.ml
+++ b/matita/matita/matitaScript.ml
@@ -271,10 +271,11 @@ let initial_statuses current baseuri =
      Some current ->
       NCicLibrary.time_travel
        ((new GrafiteTypes.status current#baseuri)#set_disambiguate_db current#disambiguate_db);
-      (* CSC: there is a known bug in invalidation; temporary fix here *)
+      (* MATITA 1.0: there is a known bug in invalidation; temporary fix here *)
       NCicEnvironment.invalidate ()
    | None -> ());
  let lexicon_status = empty_lstatus in
+ (* MATITA 1.0: ma serve ancora fare questo back-track sul lexicon_status? *)
  let grafite_status = (new GrafiteTypes.status baseuri)#set_disambiguate_db lexicon_status#disambiguate_db in
   grafite_status
 in

diff --git a/matita/matita/matitaScript.mli b/matita/matita/matitaScript.mli
index 81ade1c88c34ec0e8a87bfef61920ad0d3b128bb..0c12679f121586b926948d0f1d2a8bd6438f30f9 100644 (file)
--- a/matita/matita/matitaScript.mli
+++ b/matita/matita/matitaScript.mli
@@ -101,7 +101,9 @@ object
 end
 
 val script: 
-  urichooser: (GSourceView2.source_view -> NReference.reference list -> NReference.reference list) -> 
+  urichooser:
+    (GSourceView2.source_view -> NReference.reference list ->
+      NReference.reference list) -> 
   ask_confirmation: 
     (title:string -> message:string -> [`YES | `NO | `CANCEL]) -> 
   parent:GBin.scrolled_window ->
@@ -112,4 +114,5 @@ val script:
 val destroy: int -> unit
 val current: unit -> script
 val at_page: int -> script
+
 val iter_scripts: (script -> unit) -> unit