From 96cf03311af42dbd219df767750124472363ed2b Mon Sep 17 00:00:00 2001 From: dzaima Date: Mon, 25 Mar 2024 15:44:22 +0200 Subject: [PATCH] =?UTF-8?q?fix=20isPervasiveDyExt=20on=205=CB=9C?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins.h | 2 +- test/cases/prims.bqn | 5 +++++ 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/src/builtins.h b/src/builtins.h index 20490822..4ac3151d 100644 --- a/src/builtins.h +++ b/src/builtins.h @@ -96,7 +96,7 @@ static bool isPervasiveDyExt(B x) { if (isPervasiveDy(x)) return true; if (TY(x)==t_md1D) { Md1D* d = c(Md1D, x); - if (d->m1->flags-1 == n_swap) return isPervasiveDy(d->f); + if (d->m1->flags-1 == n_swap && isFun(d->f)) return isPervasiveDy(d->f); } return false; } diff --git a/test/cases/prims.bqn b/test/cases/prims.bqn index 61575e97..161fc99a 100644 --- a/test/cases/prims.bqn +++ b/test/cases/prims.bqn @@ -357,3 +357,8 @@ w←1‿1⥊1 ⋄ x←2⥊1 ⋄ w‿x <¨↩ ⋄ {! (∾⟨•Repr𝕩,": Expe # ⌜ !"⌜: Result rank too large (200≡=𝕨, 200≡=𝕩)" % +⌜˜(200⥊1)⥊1 + +# ˜ +5˜˝ "ab" %% 5 +5˜⌜˜ "a" %% [[5]] +5˜˝˘≍"ab" %% ⟨5⟩ \ No newline at end of file