summaryrefslogtreecommitdiff
path: root/module/language/objcode
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/objcode')
-rw-r--r--module/language/objcode/spec.scm7
1 files changed, 6 insertions, 1 deletions
diff --git a/module/language/objcode/spec.scm b/module/language/objcode/spec.scm
index 9837c5c1c..707dd1f9d 100644
--- a/module/language/objcode/spec.scm
+++ b/module/language/objcode/spec.scm
@@ -1,6 +1,6 @@
;;; Guile Lowlevel Intermediate Language
-;; Copyright (C) 2001, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2009, 2010 Free Software Foundation, Inc.
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -53,6 +53,11 @@
(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)