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.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/vm/coverage.scm b/module/system/vm/coverage.scm
index 13ce9c29d..ea66ce1f6 100644
--- a/module/system/vm/coverage.scm
+++ b/module/system/vm/coverage.scm
@@ -258,7 +258,7 @@ executed."
(lp (1+ idx) end))
(else elt))))))
(and (program? proc)
- (match (binary-search (data-ip-counts data) car (rtl-program-code proc))
+ (match (binary-search (data-ip-counts data) car (program-code proc))
(#f 0)
((ip . code) code))))