From b00425bb84195a830ce0ee893b405074d9c5d5d8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 28 Aug 2020 01:22:53 +0200 Subject: Fix spelling of intersperse. --- module/calp/util.scm | 2 +- module/text/util.scm | 4 ++-- module/vcomponent/recurrence/display.scm | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/module/calp/util.scm b/module/calp/util.scm index 7c176c50..9b792fe0 100644 --- a/module/calp/util.scm +++ b/module/calp/util.scm @@ -421,7 +421,7 @@ [(list? tree) (string-concatenate (map string-flatten tree))] [else (format #f "~a" tree)])) -(define-public (intersperce item list) +(define-public (intersperse item list) (let loop ((flipflop #f) (rem list)) (if (null? rem) diff --git a/module/text/util.scm b/module/text/util.scm index b87e29f2..ce39ad10 100644 --- a/module/text/util.scm +++ b/module/text/util.scm @@ -3,7 +3,7 @@ ;;; Code: (define-module (text util) - :use-module ((calp util) :select (define*-public intersperce) ) + :use-module ((calp util) :select (define*-public intersperse) ) ) (define-public (words str) (string-split str #\space)) @@ -49,4 +49,4 @@ (tail (car rev)) (rest (cdr rev))) (reverse (cons* tail " " final-delim " " - (intersperce ", " rest))))])) + (intersperse ", " rest))))])) diff --git a/module/vcomponent/recurrence/display.scm b/module/vcomponent/recurrence/display.scm index d8196b9d..b13e955e 100644 --- a/module/vcomponent/recurrence/display.scm +++ b/module/vcomponent/recurrence/display.scm @@ -27,7 +27,7 @@ ;; TODO also, grouping of -dagen. e.g. "första mån- och tisdagen" (define (format-byday-list lst) (let* ((groups (group-by car lst))) - (intersperce + (intersperse " samt " (map (lambda (group) ;; TODO sort week days -- cgit v1.2.3