1 files changed, 8 insertions, 3 deletions
diff --git a/lib.c b/lib.c
index 338ff9fc..72fe13f6 100644
--- a/lib.c
+++ b/lib.c
@@ -4925,15 +4925,15 @@ val scat3(val s1, val sep, val s2)
   return cat_str_get(&cs);
 }
 
-val fmt_join(struct args *args)
+val join_with(val sep, struct args *args)
 {
-  val self = lit("sys:fmt-join");
+  val self = lit("join-with");
   cnum index;
   val iter;
   int more;
   struct cat_str cs;
 
-  cat_str_init(&cs, nil, 0, self);
+  cat_str_init(&cs, sep, 0, self);
 
   for (index = 0, iter = args->list, more = args_more_nozap(args, index, iter);
        more;)
@@ -4954,6 +4954,11 @@ val fmt_join(struct args *args)
   return cat_str_get(&cs);
 }
 
+val fmt_join(struct args *args)
+{
+  return join_with(nil, args);
+}
+
 val split_str_keep(val str, val sep, val keep_sep)
 {
   val self = lit("split-str");