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

diff --git a/helm/ocaml/cic/test.ml b/helm/ocaml/cic/test.ml
index d7b6c2575..e15468f99 100644
--- a/helm/ocaml/cic/test.ml
+++ b/helm/ocaml/cic/test.ml
@@ -23,6 +23,8 @@
  * http://helm.cs.unibo.it/
  *)
 
+(* $Id$ *)
+
 open Printf
 
 let _ =
@@ -67,9 +69,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