From b19c2377dc9e3971a537e8dc13c48917f4f86b82 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 24 Apr 2019 01:00:51 +0200 Subject: Remove concat. Apparently SRFI-1 comes with concatenate... --- module/util.scm | 3 --- module/vcomponent/output.scm | 3 ++- 2 files changed, 2 insertions(+), 4 deletions(-) (limited to 'module') diff --git a/module/util.scm b/module/util.scm index 01d2eeb1..5e54fbc4 100644 --- a/module/util.scm +++ b/module/util.scm @@ -183,9 +183,6 @@ ((_ field proc rest ...) (begin (modf% field proc) (mod! rest ...))))) -(define-public (concat lists) - (apply append lists)) - ;; This function borrowed from web-ics (calendar util) (define* (sort* items comperator #:optional (get identity)) "A sort function more in line with how python's sorted works" 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)))))) -- cgit v1.2.3