diff options
| author |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-10-28 19:04:50 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-10-28 19:09:05 +0200 |
| commit | 32e5a48e9aba2c80491417b8a60067c9baad22be (patch) | |
| tree | 63b2a93da10d9bab56c831449c9385c9b9b5f9f3 /dev/base_include | |
| parent | ad973248998da8d7d10ed00f4bcd6f383ba9a171 (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 'dev/base_include')
| -rw-r--r-- | dev/base_include | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/dev/base_include b/dev/base_include index 79ecd73e0..f2912e112 100644 --- a/dev/base_include +++ b/dev/base_include @@ -233,8 +233,7 @@ let _ = Flags.in_toplevel := true let _ = Constrextern.set_extern_reference (fun ?loc _ r -> Libnames.Qualid (loc,Nametab.shortest_qualid_of_global Idset.empty r));; -open Coqloop -let go = loop +let go () = Coqloop.loop Option.(get !Coqtop.drop_last_doc) let _ = print_string |