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