Avoid using ↑ or ⌽ in Cmp

1 files changed, 6 insertions, 1 deletions

diff --git a/dzref_full b/dzref_full
index 288f24c2..12cc25fd 100755
--- a/dzref_full
+++ b/dzref_full
@@ -338,7 +338,12 @@ Cmp ← ∨○IsArray◶{ # No arrays
   𝕨(e=0)◶e‿{
     c←𝕨×∘-○(IsArray+=)𝕩
     s←≢𝕨 ⋄ t←≢𝕩 ⋄ r←𝕨⌊○=𝕩
-    l←s{i←+´∧`𝕨=𝕩⋄m←×´i↑𝕨⋄{c↩×-´𝕩⋄m↩m×⌊´𝕩}∘(⊑¨⟜𝕨‿𝕩)⍟(r⊸>)i⋄m}○(r↑⌽)t
+    l←s{
+      i←+´∧`𝕨=𝕩
+      m←×´⊑⟜𝕨¨↕i
+      {c↩×-´𝕩⋄m↩m×⌊´𝕩}∘(⊑¨⟜𝕨‿𝕩)⍟(r⊸>)i
+      m
+    }○(((-1+↕r)+≠)⊸{⊑⟜𝕩¨𝕨})t
     a←⥊𝕨⋄b←⥊𝕩
     Trav←(=⟜l)◶{Trav∘(1+𝕩)⍟(0⊸=)a Cmp○(𝕩⊸⊑)b}‿c
     Trav 0