From 493b97c0562ceb66b018eb3d0b92333194b57787 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 18 Oct 2023 12:37:13 +0200 Subject: Change add-enumeration-punctuation to always return lists. --- module/text/util.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/module/text/util.scm b/module/text/util.scm index 5ade7144..95f576fe 100644 --- a/module/text/util.scm +++ b/module/text/util.scm @@ -44,12 +44,13 @@ trimmed))) ;; TODO more options for infix strings +;; TODO why does this procedure return lists? (define* (add-enumeration-punctuation - list optional: (final-delim "&")) - (cond [(null? list) ""] - [(= 1 (length list)) (car list)] + lst optional: (final-delim "&")) + (cond [(null? lst) '("")] + [(= 1 (length lst)) (list (car lst))] [else - (let* ((rev (reverse list)) + (let* ((rev (reverse lst)) (tail (car rev)) (rest (cdr rev))) (reverse (cons* tail " " final-delim " " -- cgit v1.2.3