From 5192a1d46651ea4c18e2d8c75b779599cd8ad696 Mon Sep 17 00:00:00 2001 From: dzaima Date: Mon, 16 Sep 2024 00:40:09 +0300 Subject: [PATCH] =?UTF-8?q?fix=20x=E2=8A=B8=E2=89=8D=CB=98list=20&=20?= =?UTF-8?q?=E2=89=8D=E2=9F=9Cx=CB=98list=20on=20non-atom=20x?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/cells.c | 12 ++++++++++++ test/cases/cells.bqn | 5 +++++ 2 files changed, 17 insertions(+) diff --git a/src/builtins/cells.c b/src/builtins/cells.c index 0005123e..460fd30c 100644 --- a/src/builtins/cells.c +++ b/src/builtins/cells.c @@ -693,6 +693,16 @@ static NOINLINE B rank2_empty(B f, B w, ur wk, B x, ur xk, u32 chr) { return r; } +SHOULD_INLINE bool unpack_unit(B* r) { + B x = *r; + if (isAtm(x)) return true; + if (RNK(x)!=0) return false; + B x2 = IGet(x,0); + decG(x); + *r = x2; + return true; +} + NOINLINE B for_cells_AS(B f, B w, B x, ur wcr, ur wr, u32 chr) { // F⟜x⎉wcr w; array w, wr>0, 0≤wcr0 && wcr