From b8a1bce2591ef56034a1cc320fab2d272a4da278 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 26 Jul 2020 08:38:04 -0400
Subject: =?UTF-8?q?Avoid=20using=20=E2=86=91=20or=20=E2=8C=BD=20in=20Cmp?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 dzref_full | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3