]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/matita/matitadep.ml
0. core_notation.ma splitted into coq.moo and core_notation.moo
[helm.git] / helm / matita / matitadep.ml
index e355ab59c9efeaff8ca90a642114104e0e25d64d..0676aa93ec290e15c50bf581b1e27c6379192ace 100644 (file)
@@ -95,13 +95,14 @@ let main () =
               (_, TA.Alias (_, TA.Ident_alias(_, uri)))) -> 
                 Hashtbl.add aliases file uri
           | TA.Executable (_, TA.Command (_, TA.Include (_, path))) ->
-             (try
-               Hashtbl.add deps file (MatitaMisc.obj_file_of_script (find path))
-              with
-               Sys_error _ ->
-                MatitaLog.error
-                 ("In file " ^ file ^ " unable to include " ^ path)
-             )
+             if path <> "coq.ma" then
+              (try
+                Hashtbl.add deps file (MatitaMisc.obj_file_of_script (find path))
+               with
+                Sys_error _ ->
+                 MatitaLog.error
+                  ("In file " ^ file ^ " unable to include " ^ path)
+              )
           | _ -> ()
         with 
           CicNotationParser.Parse_error _ as exn ->