summaryrefslogtreecommitdiff
path: root/module/language/objcode
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2010-04-21 23:30:48 +0200
committerLudovic Courtès <ludo@gnu.org>2010-05-07 13:47:52 +0200
commitf9a86f72a6ea7ab480f4bfd6ef61c835620df5eb (patch)
tree4e72d7bdb5486d598f5af5bb3a5dc6cb7363503a /module/language/objcode
parente6bd58af8fd847dc1e7af2c8d658905ea889edca (diff)
downloadguile-f9a86f72a6ea7ab480f4bfd6ef61c835620df5eb.tar.gz
Add `program-free-variables' to `(system vm program)'.
* module/system/vm/program.scm (program-free-variables): New procedure. * module/language/objcode/spec.scm (program-free-variables): Remove.
Diffstat (limited to 'module/language/objcode')
-rw-r--r--module/language/objcode/spec.scm5
1 files changed, 0 insertions, 5 deletions
diff --git a/module/language/objcode/spec.scm b/module/language/objcode/spec.scm
index a4cb0621d..bbd745412 100644
--- a/module/language/objcode/spec.scm
+++ b/module/language/objcode/spec.scm
@@ -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)