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

---
 spec/reference.bqn | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'spec/reference.bqn')

diff --git a/spec/reference.bqn b/spec/reference.bqn
index e59e8dc7..40cbefb9 100644
--- a/spec/reference.bqn
+++ b/spec/reference.bqn
@@ -281,7 +281,7 @@ _onAxes_←{
     ! 𝕨≤○≠≢𝕩
     R←{(⊑𝕨)F(1 DropV 𝕨)⊸R˘𝕩}⍟{0<≠𝕨}
     𝕨R𝕩
-  }
+  }⟜ToArray
 }
 
 SelSub←{
@@ -419,7 +419,7 @@ ReorderAxes←{
   𝕨↩𝕨∾𝕨(¬∘∊˜/⊢)↕r
   (𝕨⊸⊏⊑𝕩˙)¨↕⌊´¨𝕨⊔≢𝕩
 }
-Transpose←(=-1˙)⊸ReorderAxes⍟(0<=)
+Transpose←(0<=)◶⟨ToArray,(=-1˙)⊸ReorderAxes⟩
 
 # Sorting
 Cmp ← ∨○IsArray◶{ # No arrays
-- 
cgit v1.2.3