Added a parameter (empty list) to load_notation.

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

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