diff options
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/util/group.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/module/vcomponent/util/group.scm b/module/vcomponent/util/group.scm index 4001c590..6029f70c 100644 --- a/module/vcomponent/util/group.scm +++ b/module/vcomponent/util/group.scm @@ -54,9 +54,10 @@ ;; To combat this I simple create a bunch of dummy groups below. (cond [(stream-null? good-part) - (list->stream - (map (lambda (d) (cons d stream-null)) - (date-range start-date end-date)))] + ;; This case is checked, but streams lazy evaluation means that ther are missed. + (list->stream ; NOCOV + (map (lambda (d) (cons d stream-null)) ; NOCOV + (date-range start-date end-date)))] ; NOCOV [(car (stream-car good-part)) (lambda (d) (date< start-date d)) => (lambda (d) |