summaryrefslogtreecommitdiff
path: root/module/system/vm/coverage.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/vm/coverage.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/vm/coverage.scm')
-rw-r--r--module/system/vm/coverage.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/system/vm/coverage.scm b/module/system/vm/coverage.scm
index 4c9644e93..13ce9c29d 100644
--- a/module/system/vm/coverage.scm
+++ b/module/system/vm/coverage.scm
@@ -257,7 +257,7 @@ executed."
((< val* val)
(lp (1+ idx) end))
(else elt))))))
- (and (rtl-program? proc)
+ (and (program? proc)
(match (binary-search (data-ip-counts data) car (rtl-program-code proc))
(#f 0)
((ip . code) code))))
@@ -312,7 +312,7 @@ gathered, even if their code was not executed."
#;
(define (dump-function proc)
;; Dump source location and basic coverage data for PROC.
- (and (or (program? proc) (rtl-program? proc))
+ (and (or (program? proc))
(let ((sources (program-sources* data proc)))
(and (pair? sources)
(let* ((line (source:line-for-user (car sources)))