diff options
author | Andy Wingo <wingo@pobox.com> | 2009-05-26 21:47:45 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-05-26 21:51:42 +0200 |
commit | 1351c2dba5ce54aeeae41cb2322ad39cd29510b0 (patch) | |
tree | 1cd519c507db104e9425ae2a6a4491ef56ba8c7e /module/system/repl/repl.scm | |
parent | 9d07bb7276d1be078c5933645897694035ecdcfe (diff) | |
download | guile-1351c2dba5ce54aeeae41cb2322ad39cd29510b0.tar.gz |
fix backtraces with compiled boot-9
* module/ice-9/boot-9.scm (default-pre-unwind-handler): Since we were
tail-called by pre-unwind-handler-dispatch, we can't use
pre-unwind-handler-dispatch as a narrowing argument. Instead just
narrow by one frame.
(pre-unwind-handler-dispatch): Deprecate.
(error-catching-loop): Remove crack comment and code, and just use
default-pre-unwind-handler as our pre-unwind handler.
* module/ice-9/stack-catch.scm (stack-catch):
* module/system/repl/repl.scm (call-with-backtrace): Use
default-pre-unwind-handler directly.
Diffstat (limited to 'module/system/repl/repl.scm')
-rw-r--r-- | module/system/repl/repl.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm index ebf2b93d4..0a06e3dd0 100644 --- a/module/system/repl/repl.scm +++ b/module/system/repl/repl.scm @@ -89,7 +89,7 @@ (catch #t (lambda () (%start-stack #t thunk)) default-catch-handler - pre-unwind-handler-dispatch)) + default-pre-unwind-handler)) (define-macro (with-backtrace form) `(call-with-backtrace (lambda () ,form))) |