Avec -use-runtime, supprimer le fichier temporaire apres usage

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3187 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2000-06-05 12:19:03 +00:00 · 2000-06-05 12:19:03 +00:00 · 3800406560
parent 11a999bfe3
commit 3800406560
1 changed files with 1 additions and 1 deletions
--- a/bytecomp/symtable.ml
+++ b/bytecomp/symtable.ml
@ -158,7 +158,7 @@ let init () =
        while true do
          set_prim_table (input_line ic)
        done
-      with End_of_file -> close_in ic
+      with End_of_file -> remove_file primfile; close_in ic
         | x -> close_in ic; raise x
    with x -> remove_file primfile; raise x
  end else begin