From 5cb10a20d2f691a1dc7e6fdc1caca2699a4c3851 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 11 Jun 2020 17:36:52 -0400
Subject: =?UTF-8?q?Use=20=E2=8A=A3=20for=20separator=20pseudofunction?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 c.bqn          | 4 ++--
 test/cases.bqn | 1 +
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/c.bqn b/c.bqn
index b7a26d67..d7e55e02 100755
--- a/c.bqn
+++ b/c.bqn
@@ -24,7 +24,7 @@ Parse←{
   x(/˜)↩¬(x∊chW)∨<○(⌈`↕∘≠⊸×)´(lf∾chR)=⌜x
   x(/˜)↩¬(1⌾⊑1⌽1⌾⊑)⊸∧x∊chS
   a←x∊"←↩"⋄at←1⌽a⋄vars←at/x⋄x(/˜)↩¬a⋄a(/˜)↩¬at
-  l←≠x⋄sep←x∊chS⋄x↩'⋄'¨⌾(sep⊸/)x
+  l←≠x⋄sep←x∊chS⋄x↩'⊣'¨⌾(sep⊸/)x
   o←x='('⋄c←x=')'⋄v←a-˜x∊•d∾args∾vars⋄f←¬o∨c∨v∨sep
   na←(2×sep)+f×1+l↑0∾c∨v
   e←/c⋄d←+`o-c
@@ -51,7 +51,7 @@ GenFn←{
     v←vars⊐<𝕩⋄v<≠vars:(D"22")∾v
     ((<(D"10")∾1)∾˜⥊¨(D"99")+((↕4)∾6))⊑˜"|-⌈⌊√÷"⊐<𝕩
   }‿{
-    (⥊¨(D"1A")∾(D"A0")+↕6)⊑˜"⋄+-×÷⌊⌈"⊐<𝕩
+    (⥊¨(D"1A")∾(D"A0")+↕6)⊑˜"⊣+-×÷⌊⌈"⊐<𝕩
   }
   ((≠∾∾)⟨locs≠⊸∾f64⟩)∾(D"0B")∾˜∾na⊑⟜fns⊸{𝕎𝕩}¨x
 }
diff --git a/test/cases.bqn b/test/cases.bqn
index 22c8a540..15c15a80 100644
--- a/test/cases.bqn
+++ b/test/cases.bqn
@@ -2,6 +2,7 @@
 -2   % 1⌊-2
 -1   % -2⌊1
 1    % (÷2)+(÷3)+(÷6)
+4    % 4⊣5
 0    % s←√5,⌊9×|5-s×s
 -0.5 % ((-3)+√(3×3)-4×2×1)÷2×2
 -0.5 % a←2,b←3,c←1⋄((-b)+√(b×b)-4×a×c)÷2×a
-- 
cgit v1.2.3