summaryrefslogtreecommitdiff
path: root/libguile/eval.h
diff options
context:
space:
mode:
authorHan-Wen Nienhuys <hanwen@lilypond.org>2007-01-19 19:26:36 +0000
committerHan-Wen Nienhuys <hanwen@lilypond.org>2007-01-19 19:26:36 +0000
commit62560650136f8c1a321a754e5081e323009b812a (patch)
treee20bd1417e43f56b818c79fd5059a61a036532e2 /libguile/eval.h
parent42ddb3cb8b30a2bba45c4ef9bf29d3ab04c6cc45 (diff)
downloadguile-62560650136f8c1a321a754e5081e323009b812a.tar.gz
* readline.c: terminate option list with NULL.
* read.c: idem. * print.c: idem. * eval.c: terminate option lists with 0. * options.c: remove n (for length) from scm_option_X functions. Detect option list length by looking for NULL name.
Diffstat (limited to 'libguile/eval.h')
-rw-r--r--libguile/eval.h9
1 files changed, 4 insertions, 5 deletions
diff --git a/libguile/eval.h b/libguile/eval.h
index 7d856a00b..cc6f8e180 100644
--- a/libguile/eval.h
+++ b/libguile/eval.h
@@ -45,12 +45,11 @@ SCM_API SCM scm_eval_options_interface (SCM setting);
#define SCM_TRAPS_P scm_evaluator_trap_table[0].val
#define SCM_ENTER_FRAME_P scm_evaluator_trap_table[1].val
-#define SCM_APPLY_FRAME_P scm_evaluator_trap_table[2].val
-#define SCM_EXIT_FRAME_P scm_evaluator_trap_table[3].val
-#define SCM_ENTER_FRAME_HDLR (SCM_PACK (scm_evaluator_trap_table[4].val))
-#define SCM_APPLY_FRAME_HDLR (SCM_PACK (scm_evaluator_trap_table[5].val))
+#define SCM_ENTER_FRAME_HDLR (SCM_PACK (scm_evaluator_trap_table[2].val))
+#define SCM_APPLY_FRAME_P scm_evaluator_trap_table[3].val
+#define SCM_APPLY_FRAME_HDLR (SCM_PACK (scm_evaluator_trap_table[4].val))
+#define SCM_EXIT_FRAME_P scm_evaluator_trap_table[5].val
#define SCM_EXIT_FRAME_HDLR (SCM_PACK (scm_evaluator_trap_table[6].val))
-#define SCM_N_EVALUATOR_TRAPS 7