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

[helm.git] / helm / matita / .ocamlinit

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 ()
+;;