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

Use frame-external-link.

Browse source
This commit is contained in:
Keisuke Nishida 2000-08-22 19:03:32 +00:00
parent d608d68d7b
commit d545b41973
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
vm/shell.scm
View file

@ -123,7 +123,7 @@ certain conditions. There is absolutely no warranty for Guile VM.\n")
(frame-return-address frame))) (frame-return-address frame)))
frames))) frames)))
(format #t "Local variables = ~S~%" (frame-variables frame)) (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 "Stack = ~S~%" (vm-stack->list vm))))
(format #t "0x~X:" (vm:pc vm)) (format #t "0x~X:" (vm:pc vm))
(for-each (lambda (obj) (display " ") (write obj)) (for-each (lambda (obj) (display " ") (write obj))