From d545b41973c43dcfb25ee736d2391eebda053dec Mon Sep 17 00:00:00 2001 From: Keisuke Nishida Date: Tue, 22 Aug 2000 19:03:32 +0000 Subject: [PATCH] Use frame-external-link. --- vm/shell.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/vm/shell.scm b/vm/shell.scm index 375fe82af..bb5ea0508 100644 --- a/vm/shell.scm +++ b/vm/shell.scm @@ -123,7 +123,7 @@ certain conditions. There is absolutely no warranty for Guile VM.\n") (frame-return-address frame))) frames))) (format #t "Local variables = ~S~%" (frame-variables frame)) - (format #t "External variables = ~S~%" (program-external (frame-program frame))) + (format #t "External variables = ~S~%" (frame-external-link frame)) (format #t "Stack = ~S~%" (vm-stack->list vm)))) (format #t "0x~X:" (vm:pc vm)) (for-each (lambda (obj) (display " ") (write obj))