mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 13:20:26 +02:00
Code Activity

remove before-signal-stack

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2010-06-18 13:01:14 +02:00
parent 352b99c43d
commit 48201a94eb
2 changed files with 1 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/ice-9/debugger/command-loop.scm
View file

@ -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")