Commit 2d040e06 authored by Pieter Koopman's avatar Pieter Koopman
Browse files

allow operator names like .*

parent 62c8b0fd
......@@ -435,16 +435,18 @@ Scan c0=:'&' input co
Scan c0=:'.' input co
= case co of
TypeContext
-> (DotToken, input)
_ # (eof, c1, input) = ReadChar input
| eof -> (DotToken, input)
| c1 <> '.' -> (DotToken, charBack input)
# (eof, c2, input) = ReadChar input
| eof -> (DotDotToken, input)
| isSpecialChar c2
| c1 == '.'
# (eof, c2, input) = ReadChar input
| eof -> (DotDotToken, input)
| isSpecialChar c2
-> ScanOperator 2 input [c2, c1, c0] co
-> (DotDotToken, charBack input)
| isSpecialChar c1
-> ScanOperator 1 input [c1, c0] co
-> (DotToken, charBack input)
Scan '!' input TypeContext = (ExclamationToken, input)
Scan '\\' input co
# (eof, c, input) = ReadChar input
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment