From 6dd9e003c289a79b0656e7c6f2cc59935997370c Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Sat, 16 Aug 2014 20:37:59 +0200 Subject: Removing documentation related to the deprecated State machinery. --- toplevel/coqtop.ml | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'toplevel/coqtop.ml') diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index 4ad4b6a6c..43ffa762e 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -80,11 +80,15 @@ let unset_toplevel_name () = toplevel_name := None let remove_top_ml () = Mltop.remove () let inputstate = ref "" -let set_inputstate s = inputstate:=s +let set_inputstate s = + let () = msg_warning (str "The inputstate option is deprecated and discouraged.") in + inputstate:=s let inputstate () = if not (String.is_empty !inputstate) then intern_state !inputstate let outputstate = ref "" -let set_outputstate s = outputstate:=s +let set_outputstate s = + let () = msg_warning (str "The outputstate option is deprecated and discouraged.") in + outputstate:=s let outputstate () = if not (String.is_empty !outputstate) then extern_state !outputstate let set_include d p recursive implicit = -- cgit v1.2.3