From 3c6dd71383030fd3d21f84d7a9c2743ff4d74b13 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 29 Mar 2021 11:03:07 -0400
Subject: Use _glyphLookup_, not primitive comparison, for ReshapeT

---
 src/r.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index d19f1756..b4517051 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -431,6 +431,7 @@ _onAxes_←{
 ¬ ← 1+-
 HomFil ← {((𝕎0) Fill 𝕏)⊘𝕏}⍟(+´⟨=,≠,≡,≢⟩=⊣)
 
+ReshapeT ← "∘⌊⌽↑"_glyphLookup_(↕5)
 Reshape←{
   "𝕨⥊𝕩: 𝕨 must have rank at most 1" ! 1≥=𝕨
   s←Deshape 𝕨
@@ -700,7 +701,6 @@ _repeat_←{
   (|⊑<⟜0⊑pos‿neg˙)⚇0 n
 }
 
-ReshapeT ← ⟨∘,⌊,⌽,↑⟩⊑∘⊐<
 JoinPrim ← ∾
 
 ⍟ ↩ _repeat_
-- 
cgit v1.2.3