handling capitalization (&|) in unlexer -bind

2017-06-02 06:06:57 +00:00
parent 6ec31f029e
commit 4e56a16cab
1 changed files with 2 additions and 0 deletions
--- 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
               []            -> []