jon.recoil.org

Module Ctype.Pattern_env

type t = private {
  1. mutable env : Env.t;
  2. equations_scope : int;
  3. allow_recursive_equations : bool;
  4. mutable env_alloc_mode : Mode.Alloc.r option;
    (*

    Some m if the pattern is under let poly_, where m is the allocation mode of the captured environment

    *)
}
val make : ?env_alloc_mode:Mode.Alloc.r -> Env.t -> equations_scope:int -> allow_recursive_equations:bool -> t
val copy : ?equations_scope:int -> t -> t
val set_env : t -> Env.t -> unit
val set_env_alloc_mode : t -> Mode.Alloc.r option -> unit