From 8dafee241e4f60eb0de525ae7255a39c396a2fab Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 5 Sep 2022 13:44:49 -0400
Subject: Support Latin-1 alphabetic characters (leaving
 undocumented/unspecified for now)

---
 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 a16a2a9b..aadd66a4 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -1,4 +1,5 @@
 func‿mod1‿mod2 ← •args
+na←¯1⊑≢alph←("aA"+⌜↕26)∾˘"àÀ"+⌜(↕23)∾24+↕7
 lf←@+10‿13
 charSet‿cgl←(∾ ⋈ ≠¨)⟨
   func                  # Function
@@ -14,7 +15,7 @@ charSet‿cgl←(∾ ⋈ ≠¨)⟨
   ¯1⊏˘11‿∘⥊"𝕊𝕏𝕎𝔽𝔾𝕤𝕩𝕨𝕣𝕗𝕘"# Input
   ".¯π∞"                # Numeric
   '0'+↕10               # Digit
-  "_"∾˜⥊"aA"+⌜↕na←26    # Alphabetic
+  "_"∾˜⥊alph            # Alphabetic
   "•"∾(¯1↓"𝕨")∾" "∾@+9  # Whitespace (or special name prefix in UTF-16)
   "#'""@"               # Preprocessed characters
 ⟩
-- 
cgit v1.2.3