From 40fe2e7e128bc3aaa84303b28f3e4ebf54c247b5 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 4 Jan 2021 21:36:48 -0500
Subject: Merge shouldn't enclose an atom argument

---
 spec/reference.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'spec')

diff --git a/spec/reference.bqn b/spec/reference.bqn
index 61767343..179ee71d 100644
--- a/spec/reference.bqn
+++ b/spec/reference.bqn
@@ -203,7 +203,7 @@ DropV← {⊑⟜𝕩¨𝕨+↕𝕨-˜≠𝕩}
 Cell ← DropV⟜≢
 Pair ← {⟨𝕩⟩} ⊘ {⟨𝕨,𝕩⟩}
 
-Merge←(0<≠∘⥊)◶⊢‿{
+Merge←(IsArray∧0<≠∘⥊)◶⊢‿{
   c←≢⊑𝕩
   ! ∧´⥊(c≡≢)¨𝕩
   𝕩⊑⟜ToArray˜⌜↕c
-- 
cgit v1.2.3