From ed14bb4fc73ed7d0ab33f6a069695a90c7ead50a Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 5 Jan 2021 19:28:38 -0500
Subject: =?UTF-8?q?Use=20JoinTo=20in=20shift=20function=20definitions=20si?=
 =?UTF-8?q?nce=20complete=20=E2=88=BE=20isn't=20defined=20yet?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/spec/reference.bqn b/spec/reference.bqn
index c1c4c6cb..c68e6a53 100644
--- a/spec/reference.bqn
+++ b/spec/reference.bqn
@@ -319,8 +319,8 @@ Drop←{
 Prefixes ← {!1≤=𝕩 ⋄ (↕1+≠𝕩)Take¨<𝕩}
 Suffixes ← {!1≤=𝕩 ⋄ (↕1+≠𝕩)Drop¨<𝕩}
 
-ShiftBefore ← {!𝕨1⊸⌈⊸≤○=𝕩 ⋄ ( ≠𝕩)↑𝕨∾𝕩}
-ShiftAfter  ← {!𝕨1⊸⌈⊸≤○=𝕩 ⋄ (-≠𝕩)↑𝕩∾𝕨}
+ShiftBefore ← {!𝕨1⊸⌈⊸≤○=𝕩 ⋄ ( ≠𝕩) ↑ 𝕨 JoinTo 𝕩}
+ShiftAfter  ← {!𝕨1⊸⌈⊸≤○=𝕩 ⋄ (-≠𝕩) ↑ 𝕩 JoinTo 𝕨}
 Nudge     ← (1↑0↑⊢)⊸ShiftBefore
 NudgeBack ← (1↑0↑⊢)⊸ShiftAfter
 
-- 
cgit v1.2.3