From fdd649e1bf827d77b5dcf70d6a96e358f3a4b441 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Fri, 18 Oct 1996 00:15:09 +0000 Subject: [PATCH] Adjustment of load-stack selection. --- 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 251ea7367..17b9fe75d 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -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))