diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/interface.mli | 2 | ||||
| -rw-r--r-- | lib/serialize.ml | 8 |
2 files changed, 7 insertions, 3 deletions
diff --git a/lib/interface.mli b/lib/interface.mli index d190272569..31577e6296 100644 --- a/lib/interface.mli +++ b/lib/interface.mli @@ -46,6 +46,8 @@ type goals = { (** Zipper representing the unfocussed background goals *) shelved_goals : goal list; (** List of the goals on the shelf. *) + given_up_goals : goal list; + (** List of the goals that have been given up *) } type hint = (string * string) list diff --git a/lib/serialize.ml b/lib/serialize.ml index f3c06d9306..743247faf6 100644 --- a/lib/serialize.ml +++ b/lib/serialize.ml @@ -259,14 +259,16 @@ let of_goals g = let fg = of_list of_goal g.fg_goals in let bg = of_list (of_pair of_glist of_glist) g.bg_goals in let shelf = of_list of_goal g.shelved_goals in - Element ("goals", [], [fg; bg; shelf]) + let given_up = of_list of_goal g.given_up_goals in + Element ("goals", [], [fg; bg; shelf; given_up]) let to_goals = function - | Element ("goals", [], [fg; bg; shelf]) -> + | Element ("goals", [], [fg; bg; shelf; given_up]) -> let to_glist = to_list to_goal in let fg = to_list to_goal fg in let bg = to_list (to_pair to_glist to_glist) bg in let shelf = to_list to_goal shelf in - { fg_goals = fg; bg_goals = bg; shelved_goals = shelf; } + let given_up = to_list to_goal given_up in + { fg_goals = fg; bg_goals = bg; shelved_goals = shelf; given_up_goals = given_up } | _ -> raise Marshal_error let of_coq_info info = |