diff options
Diffstat (limited to 'tools/gallina.ml')
| -rw-r--r-- | tools/gallina.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/tools/gallina.ml b/tools/gallina.ml index 279919c5..5ce19e7f 100644 --- a/tools/gallina.ml +++ b/tools/gallina.ml @@ -39,7 +39,7 @@ let traite_stdin () = with Sys_error _ -> () -let gallina () = +let _ = let lg_command = Array.length Sys.argv in if lg_command < 2 then begin output_string stderr "Usage: gallina [-] [-stdout] file1 file2 ...\n"; @@ -59,6 +59,3 @@ let gallina () = traite_stdin () else List.iter traite_fichier !vfiles - -let _ = Printexc.catch gallina () - |