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.

diff --git a/libguile/print.c b/libguile/print.c
index 8475d6a..d50df2d 100644 (file)
--- 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, 

diff --git a/libguile/read.c b/libguile/read.c
index cd9b2b5..f085944 100644 (file)
--- a/libguile/read.c
+++ b/libguile/read.c
@@ -68,7 +68,7 @@ scm_t_option scm_read_opts[] = {
     "Record positions of source code expressions." },
   { SCM_OPTION_BOOLEAN, "case-insensitive", 0,
     "Convert symbols to lower case."},
-  { SCM_OPTION_SCM, "keywords", SCM_UNPACK (SCM_BOOL_F),
+  { SCM_OPTION_SCM, "keywords", (unsigned long) SCM_BOOL_F,
     "Style of keyword recognition: #f, 'prefix or 'postfix."},
 #if SCM_ENABLE_ELISP
   { SCM_OPTION_BOOLEAN, "elisp-vectors", 0,