provide string-join

svn: r9459
This commit is contained in:
Eli Barzilay 2008-04-24 16:26:50 +00:00
parent ad86a60fba
commit 2548f7ecbb

View File

@ -1,6 +1,6 @@
#lang scheme/base
(provide string-append*)
(provide string-append* string-join)
(define string-append*
(case-lambda [(strs) (apply string-append strs)] ; optimize common case