From f07e748444200bad23c6a44a30af82bc7b7c8e48 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 11 Feb 2021 14:02:31 -0500
Subject: Always make structural functions enclose atoms

---
 src/r.bqn | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index d70f51c4..74152ab8 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -123,14 +123,14 @@ Indices←{
   }⍟(0<l)𝕩
 }
 
-Transpose←{
+Transpose←(0<=)◶⟨ToArray,{
   l←≠𝕩 ⋄ m←1×´c←1 Cell 𝕩
   (c⥊↕m)(+⟜(m⊸×)⊑(⥊𝕩)˙)⌜↕l
-}_fillBy_⊢⍟(0<=)
+}_fillBy_⊢⟩
 TransposeInv←{
   r←1-˜=𝕩 ⋄ s←≢𝕩 ⋄ l←r⊑s ⋄ c←⊑⟜s⌜↕r
   (↕l)(+⟜(l⊸×)⊑(⥊𝕩)˙)⌜c⥊↕1×´c
-}_fillBy_⊢⍟(0<=)
+}_fillBy_⊢⍟{IX IsArray𝕩⋄0<=𝕩}
 
 Reverse←{
   "⌽𝕩: 𝕩 must have rank at least 1" ! 1≤=𝕩
@@ -401,7 +401,7 @@ _onAxes_←{
     "Multi-axis primitive: Length of 𝕨 must be at most rank of 𝕩" ! 𝕨≤○≠≢𝕩
     l←≠𝕨 ⋄ W←⊑⟜(⥊𝕨)
     0{(W𝕨)F(1+𝕨)⊸𝕊˘⍟(𝕨<l-1)𝕩}⍟(0<l)𝕩
-  }
+  }⟜ToArray
 }
 
 ÷ ↩ ÷ _perv
-- 
cgit v1.2.3