bug: join-with segfault on character separators.

* lib.c (join_with): Pass the correct onech array down to
cat_str_init, rather than a null pointer.

* tests/015/split.tl: New tests covering join and join-with.

1 files changed, 2 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 95db82e4..7eb29a3e 100644
--- a/lib.c
+++ b/lib.c
@@ -5047,8 +5047,9 @@ val join_with(val sep, struct args *args)
   val iter;
   int more;
   struct cat_str cs;
+  wchar_t onech[] = wini(" ");
 
-  cat_str_init(&cs, sep, 0, self);
+  cat_str_init(&cs, sep, wref(onech), self);
 
   for (index = 0, iter = args->list, more = args_more_nozap(args, index, iter);
        more;)