diff options
Diffstat (limited to 'engine/evd.ml')
| -rw-r--r-- | engine/evd.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/engine/evd.ml b/engine/evd.ml index e0453713e..60bc2eb40 100644 --- a/engine/evd.ml +++ b/engine/evd.ml @@ -943,6 +943,8 @@ let future_goals evd = evd.future_goals let principal_future_goal evd = evd.principal_future_goal +let save_future_goals evd = (evd.future_goals, evd.principal_future_goal) + let reset_future_goals evd = { evd with future_goals = [] ; principal_future_goal=None } |