diff options
Diffstat (limited to 'module/system/vm/coverage.scm')
-rw-r--r-- | module/system/vm/coverage.scm | 2 |
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)))) |