diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-08-16 20:37:59 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-08-16 22:17:45 +0200 |
| commit | 6dd9e003c289a79b0656e7c6f2cc59935997370c (patch) | |
| tree | 29bf3bccabd04d163eec29b14eee92caaea4712d /toplevel/coqtop.ml | |
| parent | 2a3a190384cedc4dfdea5bdf1079d903db624cb8 (diff) | |
Removing documentation related to the deprecated State machinery.
Diffstat (limited to 'toplevel/coqtop.ml')
| -rw-r--r-- | toplevel/coqtop.ml | 8 |
1 files changed, 6 insertions, 2 deletions
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 = |