scm: message_parts: use cons instead of append
It's faster.
This commit is contained in:
@ -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();
|
||||||
|
|||||||
Reference in New Issue
Block a user