diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Speech/TransformCFG.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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] |