diff options
Diffstat (limited to 'lexlua/scheme.lua')
| -rw-r--r-- | lexlua/scheme.lua | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lexlua/scheme.lua b/lexlua/scheme.lua index 1d37c65c6..326f52cf5 100644 --- a/lexlua/scheme.lua +++ b/lexlua/scheme.lua @@ -53,17 +53,17 @@ lex:add_rule('identifier', token(lexer.IDENTIFIER, word)) -- Strings. local literal = (P("'") + '#' * S('\\bdox')) * lexer.word -local dq_str = lexer.delimited_range('"') +local dq_str = lexer.range('"') lex:add_rule('string', token(lexer.STRING, literal + dq_str)) -- Comments. -local line_comment = ';' * lexer.nonnewline^0 -local block_comment = '#|' * (lexer.any - '|#')^0 * P('|#')^-1 +local line_comment = lexer.to_eol(';') +local block_comment = lexer.range('#|', '|#') lex:add_rule('comment', token(lexer.COMMENT, line_comment + block_comment)) -- Numbers. lex:add_rule('number', token(lexer.NUMBER, P('-')^-1 * lexer.digit^1 * - (S('./') * lexer.digit^1)^-1)) + (S('./') * lexer.digit^1)^-1)) -- Operators. lex:add_rule('operator', token(lexer.OPERATOR, S('<>=*/+-`@%:()'))) |