haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Mark deprecated values with attribute 

They have been deprecated in 2012 and most of them are ignored.
This commit is contained in:
Etienne Millon 2023-01-31 15:58:29 +01:00 committed by Etienne Millon
parent 595002e6f0
commit ace481388a
3 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
CHANGES.md
View File

@ -1,3 +1,10 @@
2.12.0 (unreleased)
-------------------
* Mark `prompt_continue`, `prompt_comment`, `smart_accept`, `new_prompt_hooks`,
`at_new_prompt` as deprecated (they have been documented as such since 2012
and most of them are ignored) (#xxx @emillon)
2.11.0 (2023-01-05)
-------------------

9
src/lib/uTop.mli
View File

@ -352,7 +352,16 @@ val set_load_path : string list -> unit
(* These variables are not used and deprecated: *)
val prompt_continue : LTerm_text.t React.signal ref
[@@deprecated]
val prompt_comment : LTerm_text.t React.signal ref
[@@deprecated]
val smart_accept : bool ref
[@@deprecated]
val new_prompt_hooks : (unit -> unit) LTerm_dlist.t
[@@deprecated]
val at_new_prompt : (unit -> unit) -> unit
[@@deprecated]

2
src/lib/uTop_main.ml
View File

@ -230,7 +230,7 @@ class read_phrase ~term = object(self)
let input_utf8= Zed_string.to_utf8 input in
(* Toploop does that: *)
Location.reset ();
let eos_is_error = not !UTop.smart_accept in
let eos_is_error = not !(UTop.smart_accept[@alert "-deprecated"]) in
try
let result = parse_and_check input_utf8 eos_is_error in
return_value <- Some result;