summaryrefslogtreecommitdiff
path: root/module/ice-9
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
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')
-rw-r--r--module/ice-9/boot-9.scm4
-rw-r--r--module/ice-9/debugger/command-loop.scm4
2 files changed, 1 insertions, 7 deletions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index cb4b3555b..d7f010f9b 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -2690,7 +2690,6 @@ module '(ice-9 q) '(make-q q-length))}."
(restore-signals))
;;(define the-last-stack (make-fluid)) Defined by scm_init_backtrace ()
-(define before-signal-stack (make-fluid))
;; FIXME: stack-saved? is broken in the presence of threads.
(define stack-saved? #f)
@@ -3460,9 +3459,6 @@ module '(ice-9 q) '(make-q q-length))}."
(lambda ()
(let ((make-handler (lambda (msg)
(lambda (sig)
- ;; Make a backup copy of the stack
- (fluid-set! before-signal-stack
- (fluid-ref the-last-stack))
(save-stack 2)
(scm-error 'signal
#f
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")