From d71e8b65d81961fd4f7763f560cab4c5f13f957c Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Wed, 31 May 2006 19:41:05 +0000
Subject: [PATCH] Disable special treatment of lists in SRGS+SISR generation,
 since OptimTalk can't handle it.

---
 src/GF/Speech/PrSRGS.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/GF/Speech/PrSRGS.hs b/src/GF/Speech/PrSRGS.hs
index dae6f35f6..20f42523a 100644
--- a/src/GF/Speech/PrSRGS.hs
+++ b/src/GF/Speech/PrSRGS.hs
@@ -59,8 +59,10 @@ prSrgsXml sisr (SRG{grammarName=name,startCat=start,
 			    ++ map ruleToXML rs)
     ruleToXML (SRGRule cat origCat alts) = 
 	rule (prCat cat) (comments ["Category " ++ origCat] ++ prRhs isList alts)
-      where isList = "List" `isPrefixOf` origCat && length cs == 2
-                      && isBase (cs!!0) && isCons (cs!!1)
+      where isList = False 
+                     -- Disabled list build since OptimTalk can't handle it ATM
+                     {- "List" `isPrefixOf` origCat && length cs == 2
+                        && isBase (cs!!0) && isCons (cs!!1) -}
             cs = sortNub [f | SRGAlt _ (Name f _) _ <- alts]
     prRhs isList rhss = [oneOf (map (mkProd sisr isList) rhss)] 
     -- externally visible rules for each of the GF categories