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

* vm/shell.scm (vm-frame->call): Updated.

Browse source
This commit is contained in:
Keisuke Nishida 2000-09-20 21:07:12 +00:00
parent 4fdec843ed
commit 3cdfcd54eb
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

@ -166,7 +166,7 @@ certain conditions. There is absolutely no warranty for Guile VM.\n")
(loop (cdr list) (1- n)))) (loop (cdr list) (1- n))))
list) list)
(let* ((prog (frame-program frame)) (let* ((prog (frame-program frame))
(name (or (program-name prog) prog))) (name (or (name prog) prog)))
(cons name (reverse! (vector->list (frame-variables frame)))))) (cons name (reverse! (vector->list (frame-variables frame))))))
(define (vm-trace-apply vm) (define (vm-trace-apply vm)