matitatop.ml is now a simple invocation of Toploop.loop and .ocamlinit is

responsible to call MatitacLib.go or MatitacLib.main.

 Cons: .ocamlinit is more dirty
 Pros: it is possible to trace something even before doing a drop!

diff --git a/helm/matita/.ocamlinit b/helm/matita/.ocamlinit
index 90f43857085b7d7651b00e4a945fa60a97173792..ba19e4e2df4fa6442cd3bddcd2474b21a14268ab 100644 (file)
--- a/helm/matita/.ocamlinit
+++ b/helm/matita/.ocamlinit
@@ -27,3 +27,11 @@
 
 (* utility functions *)
 let go = MatitacLib.go;;
+
+(* let's go! *)
+let _ = 
+ if Array.length Sys.argv > 1 then
+   MatitacLib.main `TOPLEVEL
+ else
+   MatitacLib.go ()
+;;

diff --git a/helm/matita/matitatop.ml b/helm/matita/matitatop.ml
index c9bf8d98220275ad48f632ae306cc98411bc0fe8..9e1698009cbbd908ed127632069645cb5734d946 100644 (file)
--- a/helm/matita/matitatop.ml
+++ b/helm/matita/matitatop.ml
@@ -1,9 +1,3 @@
 let _ =
   let _ = Topdirs.dir_quit in
-  let _ = 
-   if Array.length Sys.argv > 1 then
-     MatitacLib.main `TOPLEVEL
-   else
-     MatitacLib.go ()
-  in
-   Toploop.loop Format.std_formatter
+  Toploop.loop Format.std_formatter