From 043088d914695baf54cea2296293e9e9ca1b325e Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Thu, 28 Jul 2022 15:41:24 -0700 Subject: Better interface for join. --- csc/strings-test.csc | 8 ++++---- 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))) -- cgit v1.3.1