Module S_gen.Scope

type t
val top : t
val current : unit -> t
val within : t -> f:(unit -> 'a) @ local -> 'a
val is_top : t -> bool