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:51:36 +00:00
parent 4c37ee7456
commit 540c7f72a3
1 changed files with 1 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -27,14 +27,10 @@
(let* ((prog (frame-program frame))
(nargs (car (program-arity prog))))
(do ((i 0 (1+ i))
(l (reverse! (vector->list (frame-variables frame))) (cdr l))
(l (vector->list (frame-variables frame)) (cdr l))
(r '() (cons (car l) r)))
((= i nargs) (cons (program-name prog) r)))))
(define (program-name x)
(hash-fold (lambda (s v d) (if (eq? x (variable-ref v)) s d)) x
(module-obarray (current-module))))
; (define-method (binding (prog <program>))
; (fold (lambda (s v d) (if (eq? v prog) s d))
; #f (program-environment prog)))