scm: message_parts: use cons instead of append

It's faster.
This commit is contained in:
Dirk-Jan C. Binnema
2025-08-22 08:13:55 +03:00
parent 3b7e5507f7
commit 6b89f4abae

View File

@ -171,14 +171,13 @@ subr_cc_message_parts(SCM message_scm) try {
auto mime_part{GMIME_PART(part.mime_object().object())}; auto mime_part{GMIME_PART(part.mime_object().object())};
SCM mime_part_scm{to_scm(mime_part)}; SCM mime_part_scm{to_scm(mime_part)};
SCM alist_scm{to_scm(idx, parts[idx])}; SCM alist_scm{to_scm(idx, parts[idx])};
SCM item{scm_cons(mime_part_scm, alist_scm)};
parts_scm = scm_append_x( parts_scm = scm_cons(item, parts_scm);
scm_list_2(parts_scm,
scm_list_1(
scm_cons(mime_part_scm, alist_scm))));
} }
return parts_scm; return scm_reverse_x(parts_scm, SCM_EOL);
} catch (const ScmError& err) { } catch (const ScmError& err) {
err.throw_scm(); err.throw_scm();