handling combination of &+ and &|

This commit is contained in:
aarne
2017-06-02 06:11:44 +00:00
parent d1eb0aa657
commit 9e206496a7

View File

@@ -34,7 +34,7 @@ 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
"&|":(c:cs):ws-> bindTok ((toUpper c:cs) : ws)
"&|":ws -> bindTok ws
w:ws -> w:bindTok ws
[] -> []