diff options
author | Andy Wingo <wingo@pobox.com> | 2010-09-24 18:44:21 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-09-24 18:44:21 +0200 |
commit | 925c1bae1f4c23f4f320db00e2b0974b8cfa9b26 (patch) | |
tree | 3c93dbb3feba353f7b7ea1d59a9fd72047c318e3 /libguile/eval.c | |
parent | 178e9d237b6522ba8f72162949d9b925f6750266 (diff) | |
download | guile-925c1bae1f4c23f4f320db00e2b0974b8cfa9b26.tar.gz |
remove evaluator-traps-interface
* libguile/debug.h:
* libguile/debug.c (scm_with_traps):
* libguile/eval.c (scm_evaluator_traps, scm_evaluator_trap_table):
Remove these procedures. Note that scm_evaluator_traps was known in
Scheme as `evaluator-traps-interface'.
* libguile/private-options.h (SCM_TRAPS_P, SCM_ENTER_FRAME_P)
(SCM_APPLY_FRAME_P, SCM_EXIT_FRAME_P, SCM_ENTER_FRAME_HDLR)
(SCM_APPLY_FRAME_HDLR, SCM_EXIT_FRAME_HDLR, SCM_MEMOIZE_P)
(SCM_MEMOIZE_HDLR): Remove these private interfaces.
* module/ice-9/boot-9.scm (traps, trap-enable, trap-disable, trap-set!):
Remove.
* module/ice-9/scm-style-repl.scm (error-catching-loop): Remove
with-traps wrap.
* doc/ref/api-options.texi (Low level options interfaces):
(User level options interfaces, Evaluator trap options)
* doc/ref/api-evaluation.texi (Evaluator Behavior): Remove references to
the evaluator traps interface.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index 28f660379..69cf36bb4 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -478,48 +478,6 @@ scm_t_option scm_debug_opts[] = { }; -/* - * this ordering is awkward and illogical, but we maintain it for - * compatibility. --hwn - */ -scm_t_option scm_evaluator_trap_table[] = { - { SCM_OPTION_BOOLEAN, "traps", 0, "Enable evaluator traps." }, - { SCM_OPTION_BOOLEAN, "enter-frame", 0, "Trap when eval enters new frame." }, - { SCM_OPTION_BOOLEAN, "apply-frame", 0, "Trap when entering apply." }, - { SCM_OPTION_BOOLEAN, "exit-frame", 0, "Trap when exiting eval or apply." }, - { SCM_OPTION_SCM, "enter-frame-handler", (unsigned long)SCM_BOOL_F, "Handler for enter-frame traps." }, - { SCM_OPTION_SCM, "apply-frame-handler", (unsigned long)SCM_BOOL_F, "Handler for apply-frame traps." }, - { SCM_OPTION_SCM, "exit-frame-handler", (unsigned long)SCM_BOOL_F, "Handler for exit-frame traps." }, - { SCM_OPTION_BOOLEAN, "memoize-symbol", 0, "Trap when memoizing a symbol." }, - { SCM_OPTION_SCM, "memoize-symbol-handler", (unsigned long)SCM_BOOL_F, "The handler for memoization." }, - { 0 } -}; - - -SCM_DEFINE (scm_evaluator_traps, "evaluator-traps-interface", 0, 1, 0, - (SCM setting), - "Option interface for the evaluator trap options.") -#define FUNC_NAME s_scm_evaluator_traps -{ - SCM ans; - - - scm_options_try (setting, - scm_evaluator_trap_table, - FUNC_NAME, 1); - SCM_CRITICAL_SECTION_START; - ans = scm_options (setting, - scm_evaluator_trap_table, - FUNC_NAME); - - /* njrev: same again. */ - SCM_CRITICAL_SECTION_END; - return ans; -} -#undef FUNC_NAME - - - /* Simple procedure calls @@ -1111,9 +1069,6 @@ scm_init_eval () { SCM primitive_eval; - scm_init_opts (scm_evaluator_traps, - scm_evaluator_trap_table); - f_apply = scm_c_define_gsubr ("apply", 2, 0, 1, scm_apply); scm_tc16_boot_closure = scm_make_smob_type ("boot-closure", 0); |