diff options
Diffstat (limited to 'libguile/backtrace.c')
-rw-r--r-- | libguile/backtrace.c | 5 |
1 files changed, 3 insertions, 2 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); |