Stop using head in isLeadingNumberVar

This commit is contained in:
Joseph C. Sible 2023-10-16 00:55:04 -04:00
parent 8b3c37aa36
commit 4fd0615501
1 changed files with 2 additions and 3 deletions

View File

@ -4378,9 +4378,8 @@ checkEqualsInCommand params originalToken =
return $ isVariableName str
isLeadingNumberVar s =
let lead = takeWhile (/= '=') s
in not (null lead) && isDigit (head lead)
&& all isVariableChar lead && not (all isDigit lead)
case takeWhile (/= '=') s of
lead@(x:_) -> isDigit x && all isVariableChar lead && not (all isDigit lead)
msg cmd leading (T_Literal litId s) = do
-- There are many different cases, and the order of the branches matter.