diff options
| -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))) |