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 /lib/stateid.ml | |
| parent | 0c185094d40d10dc43f1432ef708a329fae25751 (diff) | |
[ltac] break dependency on the STM
Diffstat (limited to 'lib/stateid.ml')
| -rw-r--r-- | lib/stateid.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/stateid.ml b/lib/stateid.ml index a1328f156c..2a41cb7866 100644 --- a/lib/stateid.ml +++ b/lib/stateid.ml @@ -45,3 +45,6 @@ type ('a,'b) request = { name : string } +let is_valid_ref = ref (fun ~doc:_ (_ : t) -> true) +let is_valid ~doc id = !is_valid_ref ~doc id +let set_is_valid f = is_valid_ref := f |