core: Add string-append.
[mes.git] / mes / module / mes / boot-03.scm
index 4bfc6a3c5597cfdd950c3f36ee308ff3454d4e90..b61874fa46a24c2ee40ac77960799ce84d137bed 100644 (file)
 (include (list->string
           (append2 (string->list %moduledir) (string->list "mes/type-0.mes"))))
 
-(define (string-append . rest)
-  (apply string (apply append (map1 string->list rest))))
-
 (if (and (getenv "MES_DEBUG")
           (not (equal2? (getenv "MES_DEBUG") "0"))
           (not (equal2? (getenv "MES_DEBUG") "1")))