diff options
Diffstat (limited to 'libguile/eval.h')
-rw-r--r-- | libguile/eval.h | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/libguile/eval.h b/libguile/eval.h index 2ceed646f..737a7477b 100644 --- a/libguile/eval.h +++ b/libguile/eval.h @@ -48,6 +48,23 @@ +/* {Options} + */ + +extern scm_option scm_eval_opts[]; + +#define SCM_EVAL_STACK scm_eval_opts[0].val +#define SCM_N_EVAL_OPTIONS 1 + +extern scm_option scm_evaluator_trap_table[]; + +#define SCM_ENTER_FRAME_P scm_evaluator_trap_table[0].val +#define SCM_APPLY_FRAME_P scm_evaluator_trap_table[1].val +#define SCM_EXIT_FRAME_P scm_evaluator_trap_table[2].val +#define SCM_N_EVALUATOR_TRAPS 3 + + + /* {Ilocs} * * Ilocs are relative pointers into local environment structures. |