From 7cfcaa57a68ea9abde9e2558ceef86589aa26d6d Mon Sep 17 00:00:00 2001
From: Enrico Tassi
Date: Wed, 8 Oct 2014 17:28:18 +0200
Subject: STM: primitives to snapshot a .vi while in interactive mode

---
 toplevel/vernac.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'toplevel')

diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml
index dcce581994..b56b515dc6 100644
--- a/toplevel/vernac.ml
+++ b/toplevel/vernac.ml
@@ -333,8 +333,8 @@ let compile verbosely f =
       let _ = load_vernac verbosely long_f_dot_v in
       Stm.finish ();
       check_pending_proofs ();
-      Library.save_library_to ~todo:Stm.dump_final ldir long_f_dot_v
-        (Global.opaque_tables ())
+      Stm.snapshot_vi ldir long_f_dot_v;
+      Stm.reset_task_queue ()
   | Vi2Vo ->
       let open Filename in
       let open Library in
-- 
cgit v1.2.3