From 8087b6be5a8d4f8d5b8d23492f53a87a9833c583 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Thu, 16 Sep 1999 23:44:33 +0000 Subject: [PATCH] * boot-9.scm (before-signal-stack): New fluid. (top-repl): Set before-signal-stack in the signal handler. --- ice-9/boot-9.scm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index aa0522ecc..f983ebb89 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -2543,6 +2543,7 @@ (loop (lambda () #t)))) ;;(define the-last-stack (make-fluid)) Defined by scm_init_backtrace () +(define before-signal-stack (make-fluid)) (define stack-saved? #f) (define (save-stack . narrowing) @@ -3009,6 +3010,9 @@ (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 %deliver-signals) (scm-error 'signal #f