mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 07:50:20 +02:00
Code Activity

Adjustment of load-stack selection.

Browse source
This commit is contained in:
Mikael Djurfeldt 1996-10-18 00:15:09 +00:00
parent c27659c87d
commit fdd649e1bf
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2056,7 +2056,7 @@
((eq? (stack-id #t) 'repl-stack)
(set! the-last-stack (make-stack #t save-stack eval)))
((eq? (stack-id #t) 'load-stack)
(set! the-last-stack (make-stack #t save-stack primitive-load)))
(set! the-last-stack (make-stack #t save-stack gsubr-apply)))
(else (set! the-last-stack #f)))
(apply throw key args))