From ac218725344df82c9826110f759b292768893cd5 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 12 Apr 2021 13:52:10 -0400
Subject: Fix system word token start index

---
 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 d6eed79c..8a41d061 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -59,7 +59,8 @@ Tokenize←{
   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
-  wi←0<wt←(2×wk≥0)(×⟜¬+⊢)w/»sy              # Type: 0 number, 1 system, 2 identifier
+  w≠↩»⊸∨sy                                  # Start system word at dot
+  wi←0<wt←(2×wk≥0)(×⟜¬+⊢)w/sy               # Type: 0 number, 1 system, 2 identifier
   i←l>n←l∧(+`w)⊏0∾¬wi                       # Identifier/Number masks
   num←is ReadNums○(((0∾us)<∨⟜«0∾n)/0⊸∾) t×l # Numbers
   ir←(us/˜«⊸<i)(⊢+∧⟜(2⊸=))wi/wk             # Identifier role
-- 
cgit v1.2.3