summaryrefslogtreecommitdiff
path: root/libguile/print.c
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/print.c
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/print.c')
-rw-r--r--libguile/print.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/libguile/print.c b/libguile/print.c
index 8bed72297..fa6ea8c1a 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -83,7 +83,9 @@ scm_t_option scm_print_opts[] = {
"How to print symbols that have a colon as their first or last character. "
"The value '#f' does not quote the colons; '#t' quotes them; "
"'reader' quotes them when the reader option 'keywords' is not '#f'."
- }
+ },
+ { 0 },
+
};
SCM_DEFINE (scm_print_options, "print-options-interface", 0, 1, 0,
@@ -96,7 +98,6 @@ SCM_DEFINE (scm_print_options, "print-options-interface", 0, 1, 0,
{
SCM ans = scm_options (setting,
scm_print_opts,
- SCM_N_PRINT_OPTIONS,
FUNC_NAME);
return ans;
}
@@ -1165,7 +1166,7 @@ scm_init_print ()
{
SCM vtable, layout, type;
- scm_init_opts (scm_print_options, scm_print_opts, SCM_N_PRINT_OPTIONS);
+ scm_init_opts (scm_print_options, scm_print_opts);
scm_print_options (scm_list_4 (scm_from_locale_symbol ("highlight-prefix"),
scm_from_locale_string ("{"),