provide string-join
svn: r9459
This commit is contained in:
parent
ad86a60fba
commit
2548f7ecbb
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user