From 4f106ec38761c223304b74acfae490127beca464 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 28 Feb 2024 19:17:57 -0800 Subject: partition-by: replace tuple accumulation with seq_build. * lib.c (partition_by_func): Use seq_build instead of list_collect_decl and make_like. --- lib.c | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'lib.c') diff --git a/lib.c b/lib.c index 15d5a546..8418b99a 100644 --- a/lib.c +++ b/lib.c @@ -3896,12 +3896,13 @@ val tuples_star(val n, val seq, val fill) static val partition_by_func(val func, val lcons) { - list_collect_decl (out, ptail); - us_cons_bind (flast, seq_in, lcons); - val seq = seq_in; + seq_build_t bu; + us_cons_bind (flast, seq, lcons); val fnext = nil; - ptail = list_collect(ptail, pop(&seq)); + seq_build_init(lit("partition-by"), &bu, seq); + + seq_add(&bu, pop(&seq)); while (seq) { val next = car(seq); @@ -3910,7 +3911,7 @@ static val partition_by_func(val func, val lcons) if (!equal(flast, fnext)) break; - ptail = list_collect(ptail, next); + seq_add(&bu, next); seq = cdr(seq); flast = fnext; @@ -3919,7 +3920,7 @@ static val partition_by_func(val func, val lcons) us_rplacd(lcons, if2(seq, make_lazy_cons_car_cdr(us_lcons_fun(lcons), fnext, seq))); - us_rplaca(lcons, make_like(out, seq_in)); + us_rplaca(lcons, seq_finish(&bu)); return nil; } -- cgit v1.2.3