core: Add string-append.
[mes.git] / scaffold / boot / 50-make-string.scm
index bedf7f1c3f9c5ae66ed2b686291e422df3e3fdd2..0218fc8d88b0ff2ef97eac3babfec88c4421dcb2 100644 (file)
             (append2 (car rest) (apply append (cdr rest))))))
 
   (define (string . lst)
-    (list->string lst))
-
-  (define (map1 f lst)
-    (if (null? lst) (list)
-        (cons (f (car lst)) (map1 f (cdr lst)))))
-
-  (define map map1)
-
-  (define (string-append . rest)
-    (apply string (apply append (map string->list rest))))))
+    (list->string lst))))
 
 (define (make-list n . fill)
   fill)