From 08204af36b09f5f9d7ebdc0ba1780016e6ef1bf7 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 23 Jul 2020 20:22:12 -0400
Subject: Remove underscores before lowercasing (was converting _ to A)

---
 c.bqn           | 2 +-
 test/bcases.bqn | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/c.bqn b/c.bqn
index bc53a5bc..cb31ed6c 100755
--- a/c.bqn
+++ b/c.bqn
@@ -37,7 +37,7 @@ Tokenize←{
   w←(≠↑0∾⊢)⊸<l←c∊∾bD‿bN‿bA
   i←(1-˜l×+`w)⊔c
   na←≠•a⋄us←¯1⊑bA
-  in←us⊸≠⊸/¨na(⊢-⊣×+⟜(⊑bA)⊸≤)i
+  in←na(⊢-⊣×+⟜(⊑bA)⊸≤)us⊸≠⊸/¨i
   id←⍷(bA∊˜w/c)⍒⊸⊏in⋄nv←+´bA∊˜⊑¨id
 
   c↩(w∨¬l∨c∊bP∾bW)/(vi+id⊐in)⌾(w⊸/)(vi+(≠id)+lu⊐lit)⌾(cl⊸/)c
diff --git a/test/bcases.bqn b/test/bcases.bqn
index 4a1a51b6..7daba994 100644
--- a/test/bcases.bqn
+++ b/test/bcases.bqn
@@ -34,3 +34,4 @@
 4    % (⊑⟨×⟩){𝕩𝔽𝕩}¯2
 6    % +´(ט)‿-{𝕎𝕩}¨3
 5    % 2+⍟3-1
+9    % _m←˜⋄{mm←𝕩⋄×_mm 3}m
-- 
cgit v1.2.3