diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-09-13 13:12:40 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-09-13 13:12:40 +0000 |
| commit | 338608a73bc059670eb8196788c45a37419a3e4d (patch) | |
| tree | 2938c4d34a758c94990dbd440f7ef722320f0dc2 /checker/checker.ml | |
| parent | 098200d7e14805e8ae8b8f3873faec3ee3c096ad (diff) | |
Made Pp.std_ppcmds opaque.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15795 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/checker.ml')
| -rw-r--r-- | checker/checker.ml | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/checker/checker.ml b/checker/checker.ml index fd13cc195..f43a03f4a 100644 --- a/checker/checker.ml +++ b/checker/checker.ml @@ -342,12 +342,9 @@ let parse_args argv = try parse (List.tl (Array.to_list argv)) with - | UserError(_,s) as e -> begin - try - Stream.empty s; exit 1 - with Stream.Failure -> - fatal_error (explain_exn e) - end + | UserError(_, s) as e -> + if Pp.is_empty s then exit 1 + else fatal_error (explain_exn e) | e -> begin fatal_error (explain_exn e) end |