functor
(
E
:
Env_intf
.
S
)
->
sig
val
setup : has_rw:bool
->
unit
->
unit
end