diff options
| author |  pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-02-29 13:32:48 +0000 |
|---|---|---|
| committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-02-29 13:32:48 +0000 |
| commit | bc40ebf338191699793500f73178707f35946faa (patch) | |
| tree | b86b026f2fbfcbae0e9346c6bfcd7142c88bd6a9 | |
| parent | 9f20b4c72f3a3b756925d7ad23982ca7c81546e3 (diff) | |
Bug 2703: send stdout dump to coqide when an error occurs.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14998 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/ide_slave.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/ide_slave.ml b/toplevel/ide_slave.ml index 84aa98ea8..158441190 100644 --- a/toplevel/ide_slave.ml +++ b/toplevel/ide_slave.ml @@ -497,7 +497,7 @@ let set_options options = let eval_call c = let rec handle_exn e = catch_break := false; - let pr_exn e = string_of_ppcmds (Errors.print e) in + let pr_exn e = (read_stdout ())^("\n"^(string_of_ppcmds (Errors.print e))) in match e with | Vernacexpr.Drop -> None, "Drop is not allowed by coqide!" | Vernacexpr.Quit -> None, "Quit is not allowed by coqide!" |