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.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/module/system/vm/coverage.scm b/module/system/vm/coverage.scm
index 755463181..268d2112a 100644
--- a/module/system/vm/coverage.scm
+++ b/module/system/vm/coverage.scm
@@ -332,10 +332,10 @@ gathered, even if their code was not executed."
(and (program? proc)
(let ((sources (program-sources* data proc)))
(and (pair? sources)
- (let* ((line (source:line (car sources)))
+ (let* ((line (source:line-for-user (car sources)))
(name (or (procedure-name proc)
- (format #f "anonymous-l~a" (+ 1 line)))))
- (format port "FN:~A,~A~%" (+ 1 line) name)
+ (format #f "anonymous-l~a" line))))
+ (format port "FN:~A,~A~%" line name)
(and=> (procedure-execution-count data proc)
(lambda (count)
(format port "FNDA:~A,~A~%" count name))))))))