cover
840 of 965 new or added lines in 11 files covered. (87.05%)
1 existing line in 1 file now uncovered.2104 of 2232 relevant lines covered (94.27%)
0.94 hits per line
|
#lang racket/base
|
1✔ |
2 |
|
|
|
(require (prefix-in r: racket/base) |
1✔ |
|
(prefix-in r: racket/list) |
1✔ |
|
syntax/parse/define |
1✔ |
|
(for-syntax racket/syntax
|
1✔ |
|
syntax/parse |
1✔ |
|
racket/base)) |
1✔ |
9 |
|
|
|
(define-syntax-parser define-and-provide-deforestable-bindings
|
1✔ |
|
((_ ids ...) |
1✔ |
NEW
|
(with-syntax (((rids ...) (for/list ((s (attribute ids)))
|
× |
NEW
|
(format-id s "r:~a" s))))
|
× |
NEW
|
#'(begin |
× |
NEW
|
(define ids rids) ... |
× |
NEW
|
(provide ids ...))))) |
× |
17 |
|
|
|
(define-and-provide-deforestable-bindings
|
1✔ |
|
range |
1✔ |
20 |
|
|
|
filter |
1✔ |
|
map |
1✔ |
|
filter-map |
1✔ |
|
take |
1✔ |
25 |
|
|
|
foldr |
1✔ |
|
foldl |
1✔ |
|
car |
1✔ |
|
cadr |
1✔ |
|
caddr |
1✔ |
|
cadddr |
1✔ |
|
list-ref |
1✔ |
|
length |
1✔ |
|
empty? |
1✔ |
|
null?) |
1✔ |