~thon/thon

7527f7559f3f398133f5561d7848b090b429be2f — Evan Bergeron 3 months ago a21f285
Fix onKeyword
1 files changed, 1 insertions(+), 1 deletions(-)

M lex.sml
M lex.sml => lex.sml +1 -1
@@ 43,7 43,7 @@ fun eatWhitespace stream =
fun onKeyword kw s =
    let val prefixOk = kw = (lookaheadN s (String.size kw))
        val afterChar = lookaheadOnlyN s ((String.size kw)+1)
        val suffixOk = Char.isSpace afterChar
        val suffixOk = not (Char.isAlphaNum afterChar)
    in
        prefixOk andalso suffixOk
    end