aboutsummaryrefslogtreecommitdiff
path: root/toplevel/coqloop.ml
diff options
context:
space:
mode:
authorEmilio Jesus Gallego Arias2017-10-28 19:04:50 +0200
committerEmilio Jesus Gallego Arias2017-10-28 19:09:05 +0200
commit32e5a48e9aba2c80491417b8a60067c9baad22be (patch)
tree63b2a93da10d9bab56c831449c9385c9b9b5f9f3 /toplevel/coqloop.ml
parentad973248998da8d7d10ed00f4bcd6f383ba9a171 (diff)
[toplevel] Export the last document seen after `Drop`.
After `Drop`, `Coqtop.drop_last_doc` will contain the current document used by `Coqloop`. This is useful for people wanting to restart Coq after a `Drop`.
Diffstat (limited to 'toplevel/coqloop.ml')
-rw-r--r--toplevel/coqloop.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/coqloop.ml b/toplevel/coqloop.ml
index c16e2751bc..910c81381b 100644
--- a/toplevel/coqloop.ml
+++ b/toplevel/coqloop.ml
@@ -350,7 +350,7 @@ let rec loop doc =
not possible due exceptions. *)
in vernac_loop doc (Stm.get_current_state ~doc)
with
- | CErrors.Drop -> ()
+ | CErrors.Drop -> doc
| CErrors.Quit -> exit 0
| any ->
Feedback.msg_error (str "Anomaly: main loop exited with exception: " ++