From b70f43e318b60f00776fae5580914f31937ec0d8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 22 Oct 2009 00:51:53 +0200 Subject: [PATCH] Remove obsolete `save-stack' case. * module/ice-9/boot-9.scm (save-stack): Remove obsolete `tk-stack' case. --- module/ice-9/boot-9.scm | 2 -- 1 file changed, 2 deletions(-) diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 7af2fd415..585247747 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -2630,8 +2630,6 @@ module '(ice-9 q) '(make-q q-length))}." (apply make-stack #t save-stack primitive-eval #t 0 narrowing)) ((load-stack) (apply make-stack #t save-stack 0 #t 0 narrowing)) - ((tk-stack) - (apply make-stack #t save-stack tk-stack-mark #t 0 narrowing)) ((#t) (apply make-stack #t save-stack 0 1 narrowing)) (else