summaryrefslogtreecommitdiff
path: root/module/system/vm/coverage.scm
diff options
context:
space:
mode:
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)))