From b85d92151bbb865028249cfc215a3c3caa19ec5d Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 16 Dec 2021 22:13:21 -0500
Subject: =?UTF-8?q?Check=20for=20character=20set=20duplicates=20(from=20?=
 =?UTF-8?q?=E2=80=A2ReBQN)=20in=20the=20compiler?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index ec3d702c..ff10e49f 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -29,7 +29,8 @@ _tmpl←{∾𝕗{𝕎𝕩}¨<𝕩} # Template
 CharCode←charSet{
   ErrUnknownChars←!⟨"Unknown character"⊸Pl,": ",⊢⟩_tmpl
   Chk ← ⊢⊣ErrUnknownChars∘(≠/⊣)⍟≢⟜(⊏⟜𝕗)
-  g←⍋𝕗 ⋄ ⊢ Chk g⊏˜1-˜1⌈(g⊏𝕗)⍋⊢
+  (! "Character set conflict: "∾gf/˜0⊸∾)⍟(∨´) 1(↓=-⊸↓)gf←(g←⍋𝕗)⊏𝕗
+  ⊢ Chk g⊏˜1-˜1⌈gf⍋⊢
 }
 swap_undo←CharCode∊⟜mod1⊸/"˜⁼"
 
-- 
cgit v1.2.3