diff options
-rw-r--r-- | libguile/backtrace.c | 5 | ||||
-rw-r--r-- | libguile/throw.c | 2 |
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 (); \ } |