From 3cdfcd54eb2160beb9bbf8762f7253b9b1d586c6 Mon Sep 17 00:00:00 2001 From: Keisuke Nishida Date: Wed, 20 Sep 2000 21:07:12 +0000 Subject: [PATCH] * vm/shell.scm (vm-frame->call): Updated. --- vm/shell.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/vm/shell.scm b/vm/shell.scm index bb5ea0508..d3c09fe47 100644 --- a/vm/shell.scm +++ b/vm/shell.scm @@ -166,7 +166,7 @@ certain conditions. There is absolutely no warranty for Guile VM.\n") (loop (cdr list) (1- n)))) list) (let* ((prog (frame-program frame)) - (name (or (program-name prog) prog))) + (name (or (name prog) prog))) (cons name (reverse! (vector->list (frame-variables frame)))))) (define (vm-trace-apply vm)