summaryrefslogtreecommitdiff
path: root/libguile/print.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-12-15 00:43:32 +0100
committerLudovic Courtès <ludo@gnu.org>2009-12-15 01:01:17 +0100
commit62316c7f818340d0da203c802c1e1a9077ffddd6 (patch)
tree5ae5ea78f8efb70dee5cc1f9f08ffd01e24e65c7 /libguile/print.c
parentab33782cb3c491e4a2da81b7c48f93e259071041 (diff)
downloadguile-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.c3
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,