OLD | NEW |
1 ;;;; coverage.scm | 1 ;;;; coverage.scm |
2 | 2 |
3 (define-module (scm coverage)) | 3 (define-module (scm-modules coverage)) |
4 | 4 |
5 (use-modules (lily) | 5 (use-modules (lily) |
6 (ice-9 rdelim) | 6 (ice-9 rdelim) |
7 (ice-9 regex) | 7 (ice-9 regex) |
8 (ice-9 format) ;; needed for ~8@ | 8 (ice-9 format) ;; needed for ~8@ |
9 ) | 9 ) |
10 | 10 |
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
12 | 12 |
13 (define-public (coverage:show-all filter?) | 13 (define-public (coverage:show-all filter?) |
(...skipping 71 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
85 (begin | 85 (begin |
86 (if (or (not vec) (>= line (vector-length vec))) | 86 (if (or (not vec) (>= line (vector-length vec))) |
87 (set! vec | 87 (set! vec |
88 (hash-set! coverage-table name | 88 (hash-set! coverage-table name |
89 (if vec | 89 (if vec |
90 (veccopy vec (make-vector (1+ line) #f)) | 90 (veccopy vec (make-vector (1+ line) #f)) |
91 (make-vector (1+ line) #f))))) | 91 (make-vector (1+ line) #f))))) |
92 | 92 |
93 (vector-set! vec line #t)) | 93 (vector-set! vec line #t)) |
94 ))) | 94 ))) |
OLD | NEW |