From 16ea00650607ba5affc3b94fe133e69920954aa5 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 1 Jun 2022 17:20:29 -0400
Subject: Use ; for block valences in reference.bqn where reasonable

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

(limited to 'spec/reference.bqn')

diff --git a/spec/reference.bqn b/spec/reference.bqn
index afd8ccfb..617b88d2 100644
--- a/spec/reference.bqn
+++ b/spec/reference.bqn
@@ -43,9 +43,9 @@ HasFill    # Whether 𝕩 has a fill value
 # Combinators
 ◶ ← {𝕨((𝕨𝔽𝕩)⊑𝕘){𝔽}𝕩}     # LIMITED to number left operand result
 ˙ ← {𝕩⋄𝕗}
-⊘ ← {𝕨((1˙𝕨)-0)◶𝔽‿𝔾 𝕩}
+⊘ ← {𝔽𝕩;𝕨𝔾𝕩}
 ⊢ ← {𝕩}
-⊣ ← {𝕩}⊘{𝕨}
+⊣ ← {𝕩;𝕨}
 ˜ ← {𝕩𝔽𝕨⊣𝕩}
 ∘ ← {𝔽𝕨𝔾𝕩}
 ○ ← {(𝔾𝕨)𝔽𝔾𝕩}
@@ -192,7 +192,7 @@ Depth←IsArray◶0‿{1+0⌈´Depth¨⥊𝕩}
 # LAYER 4: Operators
 
 > ↩ Merge⍟IsArray  ⊘ >
-⋈ ← {⟨𝕩⟩} ⊘ {⟨𝕨,𝕩⟩}
+⋈ ← {⟨𝕩⟩;⟨𝕨,𝕩⟩}
 ≍ ← >∘⋈
 ⎉ ← _rankOp_
 ⚇ ← _depthOp_
@@ -218,7 +218,7 @@ ValidateRanks←{
 }
 _ranks ← {⟨2⟩⊘⟨1,0⟩ ((⊣-1+|)˜⟜≠⊑¨<∘⊢) ValidateRanks∘𝔽}
 _depthOp_←{
-  neg←0>n←𝕨𝔾_ranks𝕩 ⋄ F←𝔽 ⋄ B←{𝕏}⊘{𝕨˙⊸𝕏}
+  neg←0>n←𝕨𝔾_ranks𝕩 ⋄ F←𝔽 ⋄ B←{𝕏;𝕨˙⊸𝕏}
   _d←{
     R←(𝕗+neg)_d
     𝕨(2⥊(neg∧𝕗≥0)∨(0⌈𝕗)≥⋈○≡)◶(⟨R¨⋄R⟜(𝕩˙)¨∘⊣⟩≍⟨(𝕨 B r)¨∘⊢⋄F⟩)𝕩
-- 
cgit v1.2.3