From 64f1140c9e2cbf435c5c10a30a50dff4838e0a1e Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 30 Jan 2021 16:55:52 -0500
Subject: Test for underscore-prefixed numbers instead of treating them like
 identifiers

---
 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 000122df..01a220dd 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -60,7 +60,8 @@ Tokenize←{
   i←l>n←l∧(+`w)⊏0∾wk<0                      # Identifier/Number masks
   num←is ReadNums○(((0∾us)<∨⟜«0∾n)/0⊸∾) t×l # Numbers
   ir←(us/˜«⊸<i)(⊢+∧⟜(2⊸=))0⊸≤⊸/wk           # Identifier role
-  id←(1-˜(i>us)×+`w>n)⊔t                    # Identifiers
+  id←(ig←1-˜(i>us)×+`w>n)⊔t                 # Identifiers
+  {⟨ig⊐/𝕩,"Numbers can't start with underscores"⟩!0}⍟(∨´)(⊑bA)>⊑¨id
 
   # Deduplicate literals and identifiers; other cleanup
   ki←((⍋⊏⟜n)⊸⊏/w)∾(ci∾/si)⊏+`»f             # Indices in t
-- 
cgit v1.2.3