mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* eval.h, eval.c: New evaluator trap flag: SCM_TRAPS_P.

Browse source
This commit is contained in:
Mikael Djurfeldt 1998-08-21 08:14:37 +00:00
parent b6d7594844
commit 066dacf85d
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/eval.h
View file

@ -60,10 +60,11 @@ extern int scm_eval_stack;
extern scm_option scm_evaluator_trap_table[]; extern scm_option scm_evaluator_trap_table[];
#define SCM_ENTER_FRAME_P scm_evaluator_trap_table[0].val #define SCM_TRAPS_P scm_evaluator_trap_table[0].val
#define SCM_APPLY_FRAME_P scm_evaluator_trap_table[1].val #define SCM_ENTER_FRAME_P scm_evaluator_trap_table[1].val
#define SCM_EXIT_FRAME_P scm_evaluator_trap_table[2].val #define SCM_APPLY_FRAME_P scm_evaluator_trap_table[2].val
#define SCM_N_EVALUATOR_TRAPS 3 #define SCM_EXIT_FRAME_P scm_evaluator_trap_table[3].val
#define SCM_N_EVALUATOR_TRAPS 4