From 32e5a48e9aba2c80491417b8a60067c9baad22be Mon Sep 17 00:00:00 2001 From: Emilio Jesus Gallego Arias Date: Sat, 28 Oct 2017 19:04:50 +0200 Subject: [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`. --- dev/base_include | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'dev/base_include') 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 -- cgit v1.2.3