summaryrefslogtreecommitdiff
path: root/module/ice-9/debugger/command-loop.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-06-18 13:01:14 +0200
committerAndy Wingo <wingo@pobox.com>2010-06-18 13:01:14 +0200
commit48201a94eb6892b3d55b3de10c53fc9b34cf689c (patch)
treeca21e63fbc58ae4c105247f394068e86b5ec5f8f /module/ice-9/debugger/command-loop.scm
parent352b99c43d9f6b04360d214109e54e309db036bd (diff)
downloadguile-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.scm4
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")