summaryrefslogtreecommitdiff
path: root/module/system/xref.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/xref.scm')
-rw-r--r--module/system/xref.scm9
1 files changed, 4 insertions, 5 deletions
diff --git a/module/system/xref.scm b/module/system/xref.scm
index 65d0fed5f..2b943fdd9 100644
--- a/module/system/xref.scm
+++ b/module/system/xref.scm
@@ -35,12 +35,12 @@
(define (nested-procedures prog)
(define (cons-uniq x y)
(if (memq x y) y (cons x y)))
- (if (rtl-program? prog)
+ (if (program? prog)
(reverse
(fold-program-code (lambda (elt out)
(match elt
(('static-ref dst proc)
- (if (rtl-program? proc)
+ (if (program? proc)
(fold cons-uniq
(cons proc out)
(nested-procedures prog))
@@ -79,7 +79,7 @@
(define (procedure-callee-rev-vars proc)
(cond
- ((rtl-program? proc) (program-callee-rev-vars proc))
+ ((program? proc) (program-callee-rev-vars proc))
(else '())))
(define (procedure-callees prog)
@@ -201,8 +201,7 @@ pair of the form (module-name . variable-name), "
;; ((ip file line . col) ...)
(define (procedure-sources proc)
(cond
- ((or (rtl-program? proc) (program? proc))
- (program-sources proc))
+ ((program? proc) (program-sources proc))
(else '())))
;; file -> line -> (proc ...)