diff options
| author | filliatr | 2001-04-19 15:30:39 +0000 |
|---|---|---|
| committer | filliatr | 2001-04-19 15:30:39 +0000 |
| commit | a734027d9da55adec712c3452e7c0394b1b45685 (patch) | |
| tree | 8c834a88ceaa27c72aef5bed015e1599291f27ba | |
| parent | f9eb239814d981b3d255a9773280a78099788080 (diff) | |
Cd est silencieux si -silent
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1637 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/vernacentries.ml | 4 |
1 files 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 *) |