ocaml 3.09 transition

[helm.git] / helm / ocaml / cic / test.ml

diff --git a/helm/ocaml/cic/test.ml b/helm/ocaml/cic/test.ml
index d7b6c25759b54f8197660524315dddc48445f82e..134ff789de2ff3087ebbfa0601759372be0d06ad 100644 (file)
--- 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