From 21188149724b1e5d418f3242fe4ccbde5eedfba3 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 6 Jan 2021 21:36:29 -0500
Subject: =?UTF-8?q?Avoid=20using=20=E2=88=BE=20to=20join=20units=20in=20BQ?=
 =?UTF-8?q?N=20sources?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/c.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/c.bqn')

diff --git a/src/c.bqn b/src/c.bqn
index 4ff72181..5afbac39 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -71,7 +71,7 @@ Tokenize←{
   p←≠`1¨sb←¯1↓1↓/1(∾≠∾˜)t=sep               # Separator group boundaries (excludes leading and trailing)
   sk←sb/˜p>∨⟜«(p+(sb-p)⊏t)∊3‿5+⊑bB          # Keep the first of each group that's not just inside a bracket
   t{ie/˜↩𝕨⋄𝕨Fs𝕩}˜↩1¨⌾(sk⊸⊏)t≠sep            # Remove the rest
-  r←ir⌾((t M vi∾≠⊑k)⊸/)(vi⌊t)⊏charRole∾0    # Role
+  r←ir⌾((t M vi≍≠⊑k)⊸/)(vi⌊t)⊏charRole∾0    # Role
   t+↩5×t M⟨⊑bI,5⟩                           # Case-insensitive special names
   ⟨t,r,k,is,ie⟩
 }
-- 
cgit v1.2.3