From 2091df47feaa90f6c25788fa1ea0cc10b4ff5dda Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Sun, 25 Mar 2007 16:34:53 +0000
Subject: [PATCH] commented LC_LR modification

---
 src/GF/Speech/TransformCFG.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/GF/Speech/TransformCFG.hs b/src/GF/Speech/TransformCFG.hs
index af64f3a89..6a66bc5f0 100644
--- a/src/GF/Speech/TransformCFG.hs
+++ b/src/GF/Speech/TransformCFG.hs
@@ -145,6 +145,8 @@ removeLeftRecursion start gr
                x <- properLeftCornersOf a,
                not (isLeftRecursive x),
                let a_x = mkCat (Cat a) x,
+               -- this is an extension of LC_LR to avoid generating
+               -- A-X categories for which there are no productions:
                a_x `Set.member` newCats,
                let n' = symbol (\_ -> CFApp (CFRes 1) (CFRes 0))
                                (\_ -> CFRes 0) x]