From 1fd4c22d493715f154f6b79dc7f6e4efd44ff185 Mon Sep 17 00:00:00 2001
From: Enrico Tassi
Date: Tue, 17 Nov 2020 18:52:30 +0100
Subject: [ltac] break dependency on the STM

---
 stm/stm.ml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'stm')

diff --git a/stm/stm.ml b/stm/stm.ml
index 0b00524bd5..27f2b6fc5c 100644
--- a/stm/stm.ml
+++ b/stm/stm.ml
@@ -801,6 +801,9 @@ let state_of_id ~doc id =
     | EmptyState | ParsingState _ -> `Valid None
   with VCS.Expired -> `Expired
 
+let () =
+  Stateid.set_is_valid (fun ~doc id -> state_of_id ~doc id <> `Expired)
+
 (****** A cache: fills in the nodes of the VCS document with their value ******)
 module State : sig
 
-- 
cgit v1.2.3