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