diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-28 01:22:53 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-28 01:22:53 +0200 |
commit | b00425bb84195a830ce0ee893b405074d9c5d5d8 (patch) | |
tree | 19f09c06a0a6150d1187c495317db77176d87b77 /module | |
parent | Move text numbers into sv-submodule, create en-module. (diff) | |
download | calp-b00425bb84195a830ce0ee893b405074d9c5d5d8.tar.gz calp-b00425bb84195a830ce0ee893b405074d9c5d5d8.tar.xz |
Fix spelling of intersperse.
Diffstat (limited to 'module')
-rw-r--r-- | module/calp/util.scm | 2 | ||||
-rw-r--r-- | module/text/util.scm | 4 | ||||
-rw-r--r-- | 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 |