X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic%2Ftest.ml;h=134ff789de2ff3087ebbfa0601759372be0d06ad;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=d7b6c25759b54f8197660524315dddc48445f82e;hpb=005aba457de4e6d77f664b17fb0f4846a16e2361;p=helm.git

diff --git a/helm/ocaml/cic/test.ml b/helm/ocaml/cic/test.ml
index d7b6c2575..134ff789d 100644
--- a/helm/ocaml/cic/test.ml
+++ b/helm/ocaml/cic/test.ml
@@ -67,9 +67,7 @@ let rec parse uri tmpfile1 tmpfile2 =
     when Str.string_match body_RE uri 0 ->
       parse uri tmpfile1 None
   | CicParser.Parser_failure msg ->
-      printf "%s FAILED (%s)\n" uri msg; flush stdout);
-  unlink tmpfile1;
-  (match tmpfile2 with None -> () | Some f -> unlink f)
+      printf "%s FAILED (%s)\n" uri msg; flush stdout)
 
 let _ =
   try