diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-02-11 15:21:58 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2011-02-11 15:21:58 +0100 |
| commit | 9179e8a5ff00eeb7d42b66dcdb038a35fc54d5fc (patch) | |
| tree | 90751fd212957acbf758defa9cfa3a89caf4ba30 /libguile/backtrace.c | |
| parent | e0c70a8b06db2f6d721556c23280471825c3830a (diff) | |
| download | guile-9179e8a5ff00eeb7d42b66dcdb038a35fc54d5fc.tar.gz | |
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.
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); |