summaryrefslogtreecommitdiff
path: root/module/ice-9/save-stack.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/ice-9/save-stack.scm')
-rw-r--r--module/ice-9/save-stack.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/module/ice-9/save-stack.scm b/module/ice-9/save-stack.scm
index 31eb8215e..126ed837e 100644
--- a/module/ice-9/save-stack.scm
+++ b/module/ice-9/save-stack.scm
@@ -32,11 +32,14 @@
(define-module (ice-9 save-stack)
;; Replace deprecated root-module bindings, if present.
#:replace (stack-saved?
+ the-last-stack
save-stack))
;; FIXME: stack-saved? is broken in the presence of threads.
(define stack-saved? #f)
+(define the-last-stack (make-fluid))
+
(define (save-stack . narrowing)
(if (not stack-saved?)
(begin