Use frame-external-link.

diff --git a/vm/shell.scm b/vm/shell.scm
index 375fe82..bb5ea05 100644 (file)
--- 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))