From c0970253b650961ea519d053536eaf923726bb6b Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 3 Sep 2020 12:26:52 -0400
Subject: Use affine characters for + and -

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

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index 1951fd54..56020480 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -48,7 +48,7 @@ Tokenize←{
   lu←⍷lit←𝕩⊔˜1-˜(+`qe-˜ToI⊑˘cb)×≠`ToI cb
   cl←f/ToI⊑∘⌽˘cb
 
-  c←CharCode⌾((¬cl)⊸/) f/𝕩
+  c←cl-˜CharCode(⊑charSet)¨⌾(cl⊸/)f/𝕩
   w←(≠↑0∾⊢)⊸<l←c M (⊑bD)≍+´1⊑¨bD‿bN‿bA
   na←≠alph⋄us←c=¯1++´bA
   id←(1-˜(us<l)×+`w)⊔na(⊢-⊣×+⟜(⊑bA)⊸≤)c
-- 
cgit v1.2.3