mes: string-join: Handle empty list.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 29 Apr 2018 16:34:21 +0000 (18:34 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 29 Apr 2018 16:34:21 +0000 (18:34 +0200)
* module/mes/boot-0.scm (string-join): Handle empty list.

module/mes/boot-0.scm

index 062ba6f9e7fd226ec27a38dbd2a3c81bdfca6716..b4c107527fcb2f67121004b006f6f6d38ad68151 100644 (file)
   (list 'load (list string-append %moduledir file)))
 
 (define (string-join lst infix)
-  (if (null? (cdr lst)) (car lst)
-      (string-append (car lst) infix (string-join (cdr lst) infix))))
+  (if (null? lst) ""
+      (if (null? (cdr lst)) (car lst)
+          (string-append (car lst) infix (string-join (cdr lst) infix)))))
 
 (include-from-path "mes/module.mes")