summaryrefslogtreecommitdiff
path: root/libguile/eval.h
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1998-03-30 21:02:59 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1998-03-30 21:02:59 +0000
commit33b974026b6feaa7a2744914486537f4ceab23dc (patch)
tree1567101ba00c28ddc59100928907461ed01ddfb0 /libguile/eval.h
parent51d394a1c51f0a3892eacfcb2ff55b6a98b7003c (diff)
downloadguile-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.h17
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.