quasistrings: reduce consing.

Quasistrings compile to code that requires on the sys:fmt-join
function to glue strings together. Rewriting that function to
avoid converting its arguments from struct args * to a list.

* eval.c (fmt_join): Static function removed.

* lib.c (cat_str_measure, cat_str_append): more_p parameter
changed to int type, which better matches the C style Boolean
values it takes.
(fmt_join): New external function.

* lib.h: Declared.

* args.h (args_more_nozap, args_get_nozap): New inline
functions allowing multiple iterations over arguments without
making a copy.

1 files changed, 0 insertions, 5 deletions

diff --git a/eval.c b/eval.c
index 2c8490d7..e94b4c14 100644
--- a/eval.c
+++ b/eval.c
@@ -2870,11 +2870,6 @@ static val fmt_flex(val obj, val plist, struct args *args)
   return do_format_field(fmt_tostring(obj), n, sep, range_ix, plist, nil);
 }
 
-static val fmt_join(struct args *args)
-{
-  return cat_str(args_get_list(args), lit(""));
-}
-
 val subst_vars(val forms, val env, val filter)
 {
   list_collect_decl(out, iter);