diff options
| author | aarne <aarne@chalmers.se> | 2017-06-02 06:06:57 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2017-06-02 06:06:57 +0000 |
| commit | d1eb0aa657e05f035d3679555e1b45401f1e3a25 (patch) | |
| tree | 099ecb6098256b78439e486d6299b8c166f07707 /src/runtime/haskell | |
| parent | 2af8ffb2696bbd5970cbf633230564840bd02adb (diff) | |
handling capitalization (&|) in unlexer -bind
Diffstat (limited to 'src/runtime/haskell')
| -rw-r--r-- | src/runtime/haskell/PGF/Lexing.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/runtime/haskell/PGF/Lexing.hs b/src/runtime/haskell/PGF/Lexing.hs index 5d7acb398..c23a52c97 100644 --- a/src/runtime/haskell/PGF/Lexing.hs +++ b/src/runtime/haskell/PGF/Lexing.hs @@ -34,6 +34,8 @@ bindTok :: [String] -> [String] bindTok ws = case ws of w1:"&+":w2:ws -> bindTok ((w1++w2):ws) "&+":ws -> bindTok ws + "&|":(c:cs):ws-> (toUpper c:cs) : bindTok ws + "&|":ws -> bindTok ws w:ws -> w:bindTok ws [] -> [] |