diff options
Diffstat (limited to 'module/text')
-rw-r--r-- | module/text/util.scm | 9 |
1 files 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 " " |