From fcd69146b1fce6df3eef11c25c658c0fdf89298b Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Tue, 15 Oct 1996 14:06:29 +0000 Subject: [PATCH] *** empty log message *** --- ice-9/boot-9.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index a0e184e73..e5e08bc55 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -665,7 +665,7 @@ ((= n 21) (unmask-signals) (timer-thunk)) ((= n 20) (unmask-signals) (gc-thunk)) ((= n 19) (unmask-signals) (alarm-thunk)) - (else (set! the-last-stack (make-stack #f 1 8)) + (else (set! the-last-stack (make-stack #f 1 7)) (if (not (eq? (stack-id the-last-stack) 'repl-stack)) (set! the-last-stack #f)) (unmask-signals)