diff options
| author | herbelin | 2003-09-10 15:06:58 +0000 |
|---|---|---|
| committer | herbelin | 2003-09-10 15:06:58 +0000 |
| commit | c8969f93340c32a680147eb71ac7d51d1d0cc54a (patch) | |
| tree | 7ee1b9cee8977da14b84fb90371b6dba9fb4a7a3 | |
| parent | 15fbd9b0fef9a391c69816789a32c7e2d45c147b (diff) | |
Debranchement du traducteur pour Load !
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4347 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/vernac.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml index 51357950e1..09df9611b5 100644 --- a/toplevel/vernac.ml +++ b/toplevel/vernac.ml @@ -107,7 +107,12 @@ let pr_comments = function let rec vernac_com interpfun (loc,com) = let rec interp = function | VernacLoad (verbosely, fname) -> - read_vernac_file verbosely (make_suffix fname ".v") + let ch = !chan_translate in + begin try + chan_translate := stdout; + read_vernac_file verbosely (make_suffix fname ".v") + with _ -> () end; + chan_translate := ch | VernacList l -> List.iter (fun (_,v) -> interp v) l |