New internal function scat: variable arg cat_str.

Avoids consing up list of strings.

* lib.c (vscat): New static function.
(scat): New function.
(lazy_str): Use scat instead of cat_str.

* lib.h (scat): Declared.

* eval.c (format_field): Use scat instead of cat_str.

* parser.c (open_txr_file, read_eval_stream): Likewise.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 93ab96bb..1959eb06 100644
--- a/lib.h
+++ b/lib.h
@@ -692,6 +692,7 @@ val match_str_tree(val bigstr, val tree, val pos);
 val replace_str(val str_in, val items, val from, val to);
 val sub_str(val str_in, val from_num, val to_num);
 val cat_str(val list, val sep);
+val scat(val sep, ...);
 val split_str(val str, val sep);
 val split_str_set(val str, val set);
 val tok_str(val str, val tok_regex, val keep_sep);