diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-11-17 21:16:58 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-11-17 21:16:58 +0100 |
| commit | 74ee48d7c13056b9251fa04c3a65b9af014ad45a (patch) | |
| tree | d45f0efbb18fe91b2d3aff06fbf043fef5a72190 /module | |
| parent | Repair by* input. (diff) | |
| download | calp-74ee48d7c13056b9251fa04c3a65b9af014ad45a.tar.gz calp-74ee48d7c13056b9251fa04c3a65b9af014ad45a.tar.xz | |
Slightly improve 'Building <events>' print.
Diffstat (limited to 'module')
| -rw-r--r-- | module/vcomponent/instance/methods.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/vcomponent/instance/methods.scm b/module/vcomponent/instance/methods.scm index 7a193b8a..414587a9 100644 --- a/module/vcomponent/instance/methods.scm +++ b/module/vcomponent/instance/methods.scm @@ -49,8 +49,9 @@ (define-method (initialize (this <events>) args) (next-method) - (format (current-error-port) "Building <events> from ~a~%" - (slot-ref this 'calendar-files)) + (format (current-error-port) "Building <events> from~%") + (for calendar in (slot-ref this 'calendar-files) + (format (current-error-port) " - ~a~%" calendar)) (slot-set! this 'calendars (load-calendars (slot-ref this 'calendar-files))) |