From c8969f93340c32a680147eb71ac7d51d1d0cc54a Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 10 Sep 2003 15:06:58 +0000
Subject: Debranchement du traducteur pour Load !

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4347 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/vernac.ml | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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
 
-- 
cgit v1.2.3