core: Add string-append.
[mes.git] / scaffold / boot / 50-string-join.scm
index 4699ed7f5c49c4787b45bf96b9b88e07710061df..a7398fca88d6503261e20e2a16ba6c766122b3ce 100644 (file)
     (if (null? lst) (list)
         (cons (f (car lst)) (map1 f (cdr lst)))))
 
-  (define map map1)
+  (define map map1)))
 
-  (define (string-append . rest)
-    (apply string (apply append (map string->list rest))))))
-
-  (define (string-join lst infix)
-    (if (null? (cdr lst)) (car lst)
-        (string-append (car lst) infix (string-join (cdr lst) infix))))
+(define (string-join lst infix)
+  (if (null? (cdr lst)) (car lst)
+      (string-append (car lst) infix (string-join (cdr lst) infix))))
 
 (if (string=? (string-join '("foo" "bar") "/") "foo/bar")
     (exit 0))