simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-06 19:25:36 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat(gensym): add reset

Browse source
This commit is contained in:
Simon Cruanes 2022-09-01 22:32:52 -04:00
parent 0797ff0409
commit 2092bbef3f
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/core/gensym.ml
View file

@ -43,6 +43,8 @@ let create tst : t =
incr id_; incr id_;
{ tst; self_id; fresh = 0 } { tst; self_id; fresh = 0 }
let reset self = self.fresh <- 0
let fresh_term ?(opaque_to_cc = false) (self : t) ~pre (ty : ty) : Term.t = let fresh_term ?(opaque_to_cc = false) (self : t) ~pre (ty : ty) : Term.t =
let id = self.fresh in let id = self.fresh in
self.fresh <- 1 + self.fresh; self.fresh <- 1 + self.fresh;

3
src/core/gensym.mli
View file

@ -17,3 +17,6 @@ val create : Term.store -> t
val fresh_term : ?opaque_to_cc:bool -> t -> pre:string -> ty -> term val fresh_term : ?opaque_to_cc:bool -> t -> pre:string -> ty -> term
(** Make a fresh term of the given type *) (** Make a fresh term of the given type *)
val reset : t -> unit
(** Reset to initial state *)