From 4e56a16cab4013453696fa48f11a43346494a092 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Fri, 2 Jun 2017 06:06:57 +0000
Subject: [PATCH] handling capitalization (&|) in unlexer -bind

---
 src/runtime/haskell/PGF/Lexing.hs | 2 ++
 1 file changed, 2 insertions(+)

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
                []            -> []