From 15e361bb360bdda2941d92af5a82cba49b3fed48 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Fri, 30 Apr 2021 19:14:24 -0400
Subject: =?UTF-8?q?Fill=20result=20of=20=E2=89=A2=20on=20an=20atom=20corre?=
 =?UTF-8?q?ctly?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'src')

diff --git a/src/r1.bqn b/src/r1.bqn
index f4f6828e..34c90e57 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -332,7 +332,7 @@ structConform ← {𝕎◶0‿𝕏}´⟨IsArray⊢, =○=, MatchS○≢⟩
 Depth←IsArray◶0‿{1+0⌈´Depth⌜⥊𝕩}
 
 ≡ ← Depth          ⊘ Match
-≢ ↩ IsArray◶⟨⟩‿≢   ⊘ (1-Match)
+≢ ↩ IsArray◶(↕0)‿≢ ⊘ (1-Match)
 
 IF ← ⊢⊣!∘≡  # Intersect fill
 IEF← (0<≠)◶⟨⊢_fillBy_ Fill, ⊢_fillBy_ IF´⟩∘⥊
-- 
cgit v1.2.3