diff options
| author | Enrico Tassi | 2020-11-17 18:52:30 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2021-01-27 09:45:48 +0100 |
| commit | 1fd4c22d493715f154f6b79dc7f6e4efd44ff185 (patch) | |
| tree | 6b0383f0fd01ce7218fe4782aac6bb7f3c79c64c /stm | |
| parent | 0c185094d40d10dc43f1432ef708a329fae25751 (diff) | |
[ltac] break dependency on the STM
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/stm.ml | 3 |
1 files changed, 3 insertions, 0 deletions
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 |