diff --git a/src/compiler/GF/Speech/PGFToCFG.hs b/src/compiler/GF/Speech/PGFToCFG.hs index 1f011dcec..5c13ca471 100644 --- a/src/compiler/GF/Speech/PGFToCFG.hs +++ b/src/compiler/GF/Speech/PGFToCFG.hs @@ -96,6 +96,10 @@ pgfToCFG pgf lang = mkCFG (showCId (lookStartCat pgf)) extCats (startRules ++ co ---- ++ [t | Alt ss _ <- as, t <- ss] ---- should be alternatives in [[CFSymbol]] ---- AR 3/6/2010 + symbolToCFSymbol SymBIND = [Terminal "&+"] + symbolToCFSymbol SymSOFT_BIND = [] + symbolToCFSymbol SymNE = [] + fixProfile :: Array DotPos Symbol -> Int -> Profile fixProfile row i = [k | (k,j) <- nts, j == i] where