Module Value.For_testing

val all_interned_symbols : unit -> string list
exception Elisp_signal of {
symbol : t;
data : t;
}
exception Elisp_throw of {
tag : t;
value : t;
}
val map_elisp_signal : (unit -> 'a) -> f:(symbol:t -> data:t -> reraise:(symbol:t -> data:t -> Core_kernel.Nothing.t) -> Core_kernel.Nothing.t) -> 'a

Used to edit non-deterministic stuff out of Elisp signals.

val map_elisp_signal_omit_data : (unit -> 'a) -> 'a