diff options
Diffstat (limited to 'module/language/objcode')
-rw-r--r-- | module/language/objcode/spec.scm | 7 |
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) |