mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

Remove obsolete `save-stack' case.

Browse source 
* module/ice-9/boot-9.scm (save-stack): Remove obsolete `tk-stack' case.
This commit is contained in:
Ludovic Courtès 2009-10-22 00:51:53 +02:00
parent b6d2306d40
commit b70f43e318
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/boot-9.scm
View file

@ -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