From c391978aeb1e1c84683531ef6342a582e97ec05b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Mon, 30 Dec 2019 04:22:35 +0100
Subject: Minor fixups.

---
 module/vcomponent/recurrence/internal.scm | 2 +-
 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))
 
-- 
cgit v1.2.3