summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/backtrace.c5
-rw-r--r--libguile/throw.c2
2 files changed, 4 insertions, 3 deletions
diff --git a/libguile/backtrace.c b/libguile/backtrace.c
index 8edc4e8b3..c7abe3173 100644
--- 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 7b2a98bd5..94783e002 100644
--- 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 (); \
}