diff --git a/src/builtins/sfns.c b/src/builtins/sfns.c index 1fd0738d..d3a0868d 100644 --- a/src/builtins/sfns.c +++ b/src/builtins/sfns.c @@ -861,14 +861,17 @@ B reverse_c1(B t, B x) { B xf = getFillQ(x); u8 xe = TI(x,elType); usz xia = a(x)->ia; - if (rnk(x)==1) { - if (xe==el_i32) { - i32* xp = i32any_ptr(x); - i32* rp; B r = m_i32arrv(&rp, xia); - for (usz i = 0; i < xia; i++) rp[i] = xp[xia-i-1]; - dec(x); - return r; - } + if (rnk(x)==1 && xesh[0];