diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-03-30 21:02:59 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-03-30 21:02:59 +0000 |
commit | 33b974026b6feaa7a2744914486537f4ceab23dc (patch) | |
tree | 1567101ba00c28ddc59100928907461ed01ddfb0 /libguile/eval.h | |
parent | 51d394a1c51f0a3892eacfcb2ff55b6a98b7003c (diff) | |
download | guile-33b974026b6feaa7a2744914486537f4ceab23dc.tar.gz |
* eval.h, eval.c, debug.h, debug.c (scm_evaluator_traps): Moved
from debug.c --> eval.c
* eval.h, eval.c (scm_eval_options_interface): New options
interface.
(SCM_EVAL_STACK): New option: Size of newly created stacks,
i.e. stacks for new threads.
* eval.c (unsafe_setjmp): Removed with #if 0.
* eval.c, numbers.c, unif.c, srcprop.c: Added a few curly braces
to avoid compiler warnings.
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. |