summaryrefslogtreecommitdiff
path: root/module/system/xref.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-19 19:11:40 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-19 19:11:40 +0100
commit0bd1e9c6a0420816111e4dc109d6dd30f9f8cd73 (patch)
treed60e9e19e8825cd85b0b2c765289fed45902e5d9 /module/system/xref.scm
parentedba822553cfa95c907bf3ecb4c4879723ef92ee (diff)
downloadguile-0bd1e9c6a0420816111e4dc109d6dd30f9f8cd73.tar.gz
rtl-program? -> program?
* libguile/programs.c (scm_program_p): Rename from scm_rtl_program_p. Changes name also from rtl-program? to program?. * libguile/programs.h: * module/ice-9/session.scm: * module/language/tree-il/analyze.scm: * module/statprof.scm: * module/system/repl/command.scm: * module/system/repl/debug.scm: * module/system/vm/coverage.scm: * module/system/vm/disassembler.scm: * module/system/vm/frame.scm: * module/system/vm/program.scm: * module/system/vm/traps.scm: * module/system/xref.scm: Adapt.
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 ...)