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/text | |
| 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/text')
| -rw-r--r-- | module/text/util.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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))))])) |