From 5099124e183e0de449dbd41ff52431ff5bc61ddd Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 25 Jan 2021 20:28:44 -0500
Subject: Use fill element to get Merge of empty array

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

(limited to 'spec')

diff --git a/spec/reference.bqn b/spec/reference.bqn
index ede5cfbd..bdfc1f2c 100644
--- a/spec/reference.bqn
+++ b/spec/reference.bqn
@@ -204,11 +204,11 @@ DropV← {⊑⟜𝕩¨𝕨+↕𝕨-˜≠𝕩}
 Cell ← DropV⟜≢
 Pair ← {⟨𝕩⟩} ⊘ {⟨𝕨,𝕩⟩}
 
-Merge←(IsArray∧0<≠∘⥊)◶⊢‿{
+Merge←(0<≠∘⥊)◶((∾○≢⥊⊢)⟜Fill)‿{
   c←≢⊑𝕩
   ! ∧´⥊(c≡≢)¨𝕩
   𝕩⊑⟜ToArray˜⌜↕c
-}
+}⍟IsArray
 ValidateRanks←{
   ! 1≥=𝕩
   𝕩↩⥊𝕩
-- 
cgit v1.2.3