mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 23:50:19 +02:00
Code Activity

Add program-free-variables' to (system vm program)'.

Browse source 
* module/system/vm/program.scm (program-free-variables): New procedure.

* module/language/objcode/spec.scm (program-free-variables): Remove.
This commit is contained in:
Ludovic Courtès 2010-04-21 23:30:48 +02:00
parent e6bd58af8f
commit f9a86f72a6
2 changed files with 12 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/language/objcode/spec.scm
View file

@ -53,11 +53,6 @@
(lp (acons (binding:index b) (list b) ret)
(cdr locs))))))))
(define (program-free-variables program)
(list->vector
(map (lambda (i) (program-free-variable-ref program i))
(iota (program-num-free-variables program)))))
(define (decompile-value x env opts)
(cond
((program? x)