From 299e5ce3aeb4d4b3b8afece41fc0e0b046c3888e Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 6 May 2021 13:14:23 -0400
Subject: Check for all-underscore words

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

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index af30664c..6487caa7 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -59,6 +59,7 @@ Tokenize←{
   nd←(t=⊑bN)>«t M bD                        # Namespace dot
   w←»⊸<l←nd<t M bN(⊣≍-˜)○⊑bW                # Word chars l, start w
   us←t=¯1++´bA⋄sy←t=⊑bW                     # Underscore, system dot
+  {⟨/us∧w+`⊸⊏0∾𝕩,"Words can't only have underscores"⟩!0}⍟(∨´)w(/<1(⊢/«)(∨/⊣))l>us
   wk←na⌊∘÷˜(⊑bA)-˜w/t                       # Kind of word from first char
   t-↩na×l∧t≥na+⊑bA                          # Case-insensitive
   {⟨𝕩/is,"System dot with no name"⟩!0}⍟(∨´)sy>«l
-- 
cgit v1.2.3