diff options
| -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 *) |