diff options
| -rw-r--r-- | tools/coqdep.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tools/coqdep.ml b/tools/coqdep.ml index a44f159b46..08c42b7eb8 100644 --- a/tools/coqdep.ml +++ b/tools/coqdep.ml @@ -512,4 +512,9 @@ let coqdep () = with e -> close_out chan; raise e end -let _ = Printexc.catch coqdep () +let _ = + try + coqdep () + with Errors.UserError(s,p) -> + let pp = if s <> "_" then Pp.(str s ++ str ": " ++ p) else p in + Pp.msgerrnl pp |