diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-12-15 00:43:32 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-12-15 01:01:17 +0100 |
commit | 62316c7f818340d0da203c802c1e1a9077ffddd6 (patch) | |
tree | 5ae5ea78f8efb70dee5cc1f9f08ffd01e24e65c7 /libguile/print.c | |
parent | ab33782cb3c491e4a2da81b7c48f93e259071041 (diff) | |
download | guile-62316c7f818340d0da203c802c1e1a9077ffddd6.tar.gz |
Avoid `SCM_UNPACK ()' in constant expressions.
They made Sun C 5.8 emit a warning such as:
line 71: warning: dead part of constant expression is nonconstant
* libguile/print.c (scm_print_opts): Don't use `SCM_UNPACK ()' here.
* libguile/read.c (scm_read_opts): Likewise.
Diffstat (limited to 'libguile/print.c')
-rw-r--r-- | libguile/print.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/print.c b/libguile/print.c index 8475d6afb..d50df2d24 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -78,7 +78,7 @@ static const char *iflagnames[] = SCM_SYMBOL (sym_reader, "reader"); scm_t_option scm_print_opts[] = { - { SCM_OPTION_SCM, "closure-hook", SCM_UNPACK (SCM_BOOL_F), + { SCM_OPTION_SCM, "closure-hook", (unsigned long) SCM_BOOL_F, "Hook for printing closures (should handle macros as well)." }, { SCM_OPTION_BOOLEAN, "source", 0, "Print closures with source." }, @@ -92,7 +92,6 @@ scm_t_option scm_print_opts[] = { "'reader' quotes them when the reader option 'keywords' is not '#f'." }, { 0 }, - }; SCM_DEFINE (scm_print_options, "print-options-interface", 0, 1, 0, |