mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
handling combination of &+ and &|
This commit is contained in:
@@ -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
|
||||
[] -> []
|
||||
|
||||
Reference in New Issue
Block a user