From 47dd81da7a2ceefa031db39f41c817eb82385fdb Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 4 Jan 2021 22:07:22 -0500
Subject: Fix Join on enclosed atom

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

(limited to 'spec/reference.bqn')

diff --git a/spec/reference.bqn b/spec/reference.bqn
index 179ee71d..c1c4c6cb 100644
--- a/spec/reference.bqn
+++ b/spec/reference.bqn
@@ -361,7 +361,7 @@ Replicate ← {0<=𝕨}◶(⥊˜⟜≠Rep⊢)‿{!𝕨=○≠𝕩⋄𝕨Rep𝕩}
 ∨ ↩ ⍒⊸⊏            ⊘ ∨
 ⊒ ← OccurrenceCount⊘ ProgressiveIndexOf
 
-Join←{
+Join←(0<=)◶{!IsArray𝕩⋄>𝕩}‿{
   C←(<⟨⟩)⥊⊸∾⌜´⊢  # Cartesian array product
   ! IsArray 𝕩
   s←≢¨𝕩
-- 
cgit v1.2.3