For_testing (ecaml.ecaml.ecaml_value.Ecaml_value.Value.For

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.Nothing.t) ->
      Core.Nothing.t) ->
  'a

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

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