mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-07 12:56:11 +00:00
parent 540c7f72a3
commit ada1129e78
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/vm/frame.scm
View file

@ -29,7 +29,7 @@
(do ((i 0 (1+ i)) (do ((i 0 (1+ i))
(l (vector->list (frame-variables frame)) (cdr l)) (l (vector->list (frame-variables frame)) (cdr l))
(r '() (cons (car l) r))) (r '() (cons (car l) r)))
((= i nargs) (cons (program-name prog) r))))) ((= i nargs) (cons (program-name prog) (reverse! r))))))
(define (program-name x) (define (program-name x)
(hash-fold (lambda (s v d) (if (eq? x (variable-ref v)) s d)) x (hash-fold (lambda (s v d) (if (eq? x (variable-ref v)) s d)) x