diff options
author | Ludovic Courtès <ludo@gnu.org> | 2010-04-21 23:30:48 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-05-07 13:47:52 +0200 |
commit | f9a86f72a6ea7ab480f4bfd6ef61c835620df5eb (patch) | |
tree | 4e72d7bdb5486d598f5af5bb3a5dc6cb7363503a /module/language/objcode | |
parent | e6bd58af8fd847dc1e7af2c8d658905ea889edca (diff) | |
download | guile-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.scm | 5 |
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) |