diff options
author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2007-01-19 19:26:36 +0000 |
---|---|---|
committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2007-01-19 19:26:36 +0000 |
commit | 62560650136f8c1a321a754e5081e323009b812a (patch) | |
tree | e20bd1417e43f56b818c79fd5059a61a036532e2 /libguile/eval.h | |
parent | 42ddb3cb8b30a2bba45c4ef9bf29d3ab04c6cc45 (diff) | |
download | guile-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.h | 9 |
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 |