diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-30 04:22:35 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-30 04:22:35 +0100 |
| commit | c391978aeb1e1c84683531ef6342a582e97ec05b (patch) | |
| tree | 51e3885aa069ab94fcd65228a72c3cca95d7a6de | |
| parent | Reworked tests. (diff) | |
| download | calp-c391978aeb1e1c84683531ef6342a582e97ec05b.tar.gz calp-c391978aeb1e1c84683531ef6342a582e97ec05b.tar.xz | |
Minor fixups.
| -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)) |