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, 2 insertions, 2 deletions

diff --git a/eval.c b/eval.c
index bc509986..0cd8087d 100644
--- a/eval.c
+++ b/eval.c
@@ -2221,8 +2221,8 @@ val format_field(val obj, val modifier, val filter, val eval_fun)
       val padding = mkstring(diff, chr(' '));
 
       return if3(right,
-                 cat_str(list(padding, str, nao), nil),
-                 cat_str(list(str, padding, nao), nil));
+                 scat(nil, padding, str, nao),
+                 scat(nil, str, padding, nao));
     }
   }
 }