1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859 |
- (define-module (ice-9 save-stack)
-
- #:export (stack-saved?
- the-last-stack
- save-stack))
- (define stack-saved? #f)
- (define the-last-stack (make-fluid))
- (define (save-stack . narrowing)
- (if (not stack-saved?)
- (begin
- (let ((stacks (fluid-ref %stacks)))
- (fluid-set! the-last-stack
-
-
-
-
-
-
- (apply make-stack #t
- 2
- (if (pair? stacks) (cdr stacks) 0)
- narrowing)))
- (set! stack-saved? #t))))
|