diff options
author | Andy Wingo <wingo@pobox.com> | 2010-06-18 13:01:14 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-06-18 13:01:14 +0200 |
commit | 48201a94eb6892b3d55b3de10c53fc9b34cf689c (patch) | |
tree | ca21e63fbc58ae4c105247f394068e86b5ec5f8f /module/ice-9/debugger/command-loop.scm | |
parent | 352b99c43d9f6b04360d214109e54e309db036bd (diff) | |
download | guile-48201a94eb6892b3d55b3de10c53fc9b34cf689c.tar.gz |
remove before-signal-stack
* module/ice-9/boot-9.scm (before-signal-stack): Remove. We're moving
away from using the-last-stack, so this backup copy is not much use.
(top-repl): Don't bother saving a before-signal-stack.
* module/ice-9/debugger/command-loop.scm (debugger-handler): No need to
restore here either.
Diffstat (limited to 'module/ice-9/debugger/command-loop.scm')
-rw-r--r-- | module/ice-9/debugger/command-loop.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/module/ice-9/debugger/command-loop.scm b/module/ice-9/debugger/command-loop.scm index 18ea00314..5b38255db 100644 --- a/module/ice-9/debugger/command-loop.scm +++ b/module/ice-9/debugger/command-loop.scm @@ -1,6 +1,6 @@ ;;;; Guile Debugger command loop -;;; Copyright (C) 1999, 2001, 2002, 2003, 2006 Free Software Foundation, Inc. +;;; Copyright (C) 1999, 2001, 2002, 2003, 2006, 2010 Free Software Foundation, Inc. ;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -45,8 +45,6 @@ (case key ((exit-debugger) #f) ((signal) - ;; Restore stack - (fluid-set! the-last-stack (fluid-ref before-signal-stack)) (apply display-error #f (current-error-port) args)) (else (display "Internal debugger error:\n") |