pre-boot lookup of print-exception works

* libguile/backtrace.c (scm_print_exception): Use scm_module_variable to
  look up print-exception so that it works before boot-9 is loaded.

* libguile/throw.c (CACHE_VAR): Tweak to use scm_from_latin1_symbol.

diff --git a/libguile/backtrace.c b/libguile/backtrace.c
index 8edc4e8..c7abe31 100644 (file)
--- a/libguile/backtrace.c
+++ b/libguile/backtrace.c
@@ -80,8 +80,9 @@ scm_print_exception (SCM port, SCM frame, SCM key, SCM args)
   SCM_VALIDATE_LIST (4, args);
   
   if (scm_is_false (print_exception))
-    print_exception = scm_c_module_lookup (scm_the_root_module (),
-                                           "print-exception");
+    print_exception =
+      scm_module_variable (scm_the_root_module (),
+                           scm_from_latin1_symbol ("print-exception"));
 
   return scm_call_4 (scm_variable_ref (print_exception),
                      port, frame, key, args);

diff --git a/libguile/throw.c b/libguile/throw.c
index 7b2a98b..94783e0 100644 (file)
--- a/libguile/throw.c
+++ b/libguile/throw.c
@@ -58,7 +58,7 @@
   if (scm_is_false (var))                                               \
     {                                                                   \
       var = scm_module_variable (scm_the_root_module (),                \
-                                 scm_from_locale_symbol (name));        \
+                                 scm_from_latin1_symbol (name));        \
       if (scm_is_false (var))                                           \
         abort ();                                                       \
     }