Module Value.For_testing

exception Elisp_signal of {
  1. symbol : t;
  2. data : 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