From a734027d9da55adec712c3452e7c0394b1b45685 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Thu, 19 Apr 2001 15:30:39 +0000
Subject: Cd est silencieux si -silent

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1637 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/vernacentries.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml
index 712e9ff7ae..f5be089e73 100644
--- a/toplevel/vernacentries.ml
+++ b/toplevel/vernacentries.ml
@@ -259,8 +259,8 @@ let _ =
 		try Sys.chdir (glob s)
 		with Sys_error str -> warning ("Cd failed: " ^ str)
 	      end;
-              print_endline (Sys.getcwd()))
-       | [] -> (fun () -> print_endline (Sys.getcwd()))
+              if_verbose print_endline (Sys.getcwd()))
+       | [] -> (fun () -> if_verbose print_endline (Sys.getcwd()))
        | _  -> bad_vernac_args "CD")
 
 (* Managing states *)
-- 
cgit v1.2.3