diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-24 01:00:51 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-24 01:00:51 +0200 |
| commit | b19c2377dc9e3971a537e8dc13c48917f4f86b82 (patch) | |
| tree | b89bc6f2086ae2d956bd544792b46e03a7e4acb1 /module/vcomponent/output.scm | |
| parent | Minor movement in fix-event-widths./module/main.scm 2>/dev/pts/0 (diff) | |
| download | calp-b19c2377dc9e3971a537e8dc13c48917f4f86b82.tar.gz calp-b19c2377dc9e3971a537e8dc13c48917f4f86b82.tar.xz | |
Remove concat.
Apparently SRFI-1 comes with concatenate...
Diffstat (limited to '')
| -rw-r--r-- | module/vcomponent/output.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/vcomponent/output.scm b/module/vcomponent/output.scm index d5cf0f32..8db2d85b 100644 --- a/module/vcomponent/output.scm +++ b/module/vcomponent/output.scm @@ -2,6 +2,7 @@ #:use-module (vcomponent) #:use-module (vcomponent control) #:use-module (util) + #:use-module (srfi srfi-1) #:use-module (srfi srfi-19 util) #:use-module (srfi srfi-26) #:use-module (ice-9 format) @@ -32,7 +33,7 @@ (format port "~a ~15@a~{;~a=~{~a~^,~}~}: ~a~%" (make-string depth #\:) key - (concat (hash-map->list list (cdr at))) + (concatenate (hash-map->list list (cdr at))) (v at))))) (for-each-in (children comp) (lambda (e) (print-vcomponent e port #:depth (1+ depth)))))) |