diff options
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/recurrence/internal.scm | 2 | ||||
-rw-r--r-- | tests/recurring.scm | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/module/vcomponent/recurrence/internal.scm b/module/vcomponent/recurrence/internal.scm index a7a3ae5e..12cf7a7b 100644 --- a/module/vcomponent/recurrence/internal.scm +++ b/module/vcomponent/recurrence/internal.scm @@ -32,7 +32,7 @@ (display "#<<recur-rule>" port) (for field in (record-type-fields <recur-rule>) (awhen (get field) - (display " ") + (display " " port) (display field port) (display "=" port) (display diff --git a/tests/recurring.scm b/tests/recurring.scm index ce5a12fd..8f1bbd1b 100644 --- a/tests/recurring.scm +++ b/tests/recurring.scm @@ -1,7 +1,8 @@ (((srfi srfi-41) stream-take stream-map) ((srfi srfi-1) find) + ((srfi srfi-19 util) day-stream) ((guile) make-struct/no-tail) - ((vcomponent base) children extract type) + ((vcomponent base) children extract type attr) ((vcomponent) parse-calendar) ((vcomponent recurrence) generate-recurrence-set)) |