squeeze created arrays in F⍟arr

This commit is contained in:
dzaima 2023-12-15 18:05:20 +02:00
parent 94b1d90995
commit c785b3a7b8

View File

@ -83,7 +83,7 @@ NOINLINE B repeat_replaceR(B g, B* q) {
usz ia = IA(g); usz ia = IA(g);
M_HARR(r, ia); M_HARR(r, ia);
for (usz i = 0; i < ia; i++) HARR_ADD(r, i, repeat_replace(GetU(g,i), q)); for (usz i = 0; i < ia; i++) HARR_ADD(r, i, repeat_replace(GetU(g,i), q));
return HARR_FC(r, g); return any_squeeze(HARR_FC(r, g));
} }
#define REPEAT_T(CN, END, ...) \ #define REPEAT_T(CN, END, ...) \
B g = CN(d->g, __VA_ARGS__ inc(x)); \ B g = CN(d->g, __VA_ARGS__ inc(x)); \