diff options
| author | filliatr | 2003-03-04 14:59:55 +0000 |
|---|---|---|
| committer | filliatr | 2003-03-04 14:59:55 +0000 |
| commit | 430432321bc83b4bcca306131c3f707e491a2871 (patch) | |
| tree | 81bdfea1c03399a85a1414dbe50397e1dd547562 | |
| parent | bbaa73928e2052a2dfa46564432b8847e992b96c (diff) | |
tous les fichiers passes a Coq IDE
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3735 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/coqtop.ml | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index 90c2c8eb72..4ee405318d 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -201,10 +201,11 @@ let parse_args is_ide = | "-v8" :: rem -> Options.v7 := false; parse rem - | s :: _ -> - if is_ide && Filename.check_suffix s ".v" then - ide_args := s :: !ide_args - else begin + | s :: rem -> + if is_ide && Filename.check_suffix s ".v" then begin + ide_args := s :: !ide_args; + parse rem + end else begin prerr_endline ("Don't know what to do with " ^ s); usage () end in |