Always make structural functions enclose atoms

1 files changed, 4 insertions, 4 deletions

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