diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-07-28 15:41:24 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-07-28 15:41:24 -0700 |
| commit | 043088d914695baf54cea2296293e9e9ca1b325e (patch) | |
| tree | a911428c34b6831aedb49bfba80504b214d7b879 | |
| parent | Use a better hashing scheme for identifiers. (diff) | |
| download | chromatopelma-043088d914695baf54cea2296293e9e9ca1b325e.tar.zst | |
Better interface for join.
| -rw-r--r-- | csc/strings-test.csc | 8 | ||||
| -rw-r--r-- | csc/strings.csc | 2 |
2 files changed, 5 insertions, 5 deletions
diff --git a/csc/strings-test.csc b/csc/strings-test.csc index c3dd378..60bfb08 100644 --- a/csc/strings-test.csc +++ b/csc/strings-test.csc @@ -71,19 +71,19 @@ (test join-, - (assert-equal "a,b,c" (join "," "a" "b" "c"))) + (assert-equal "a,b,c" (join "," '("a" "b" "c")))) (test join-none - (assert-equal "" (join ","))) + (assert-equal "" (join "," '()))) (test join-singleton - (assert-equal "x" (join "," "x"))) + (assert-equal "x" (join "," '("x")))) (test join-empty - (assert-equal "abc" (join "" "a" "b" "c"))) + (assert-equal "abc" (join "" '("a" "b" "c")))) (test split-empty diff --git a/csc/strings.csc b/csc/strings.csc index 0259697..75175f0 100644 --- a/csc/strings.csc +++ b/csc/strings.csc @@ -53,7 +53,7 @@ #t))) - (define (join sep . strings) + (define (join sep strings) (apply string-append (intercalate sep strings))) |