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/debug.c | |
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/debug.c')
-rw-r--r-- | libguile/debug.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/debug.c b/libguile/debug.c index b546b6cae..01b8204d1 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -59,10 +59,10 @@ SCM_DEFINE (scm_debug_options, "debug-options-interface", 0, 1, 0, scm_dynwind_begin (0); scm_dynwind_critical_section (SCM_BOOL_F); - ans = scm_options (setting, scm_debug_opts, SCM_N_DEBUG_OPTIONS, FUNC_NAME); + ans = scm_options (setting, scm_debug_opts, FUNC_NAME); if (!(1 <= SCM_N_FRAMES && SCM_N_FRAMES <= SCM_MAX_FRAME_SIZE)) { - scm_options (ans, scm_debug_opts, SCM_N_DEBUG_OPTIONS, FUNC_NAME); + scm_options (ans, scm_debug_opts, FUNC_NAME); SCM_OUT_OF_RANGE (1, setting); } SCM_RESET_DEBUG_MODE; @@ -526,7 +526,7 @@ SCM_DEFINE (scm_debug_hang, "debug-hang", 0, 1, 0, void scm_init_debug () { - scm_init_opts (scm_debug_options, scm_debug_opts, SCM_N_DEBUG_OPTIONS); + scm_init_opts (scm_debug_options, scm_debug_opts); scm_tc16_memoized = scm_make_smob_type ("memoized", 0); scm_set_smob_mark (scm_tc16_memoized, scm_markcdr); |