diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-03-25 16:34:53 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-03-25 16:34:53 +0000 |
| commit | de0ca9f533523ee0a815c5f0d06c58053c542f91 (patch) | |
| tree | aa4f20c796f65942eff6b405df5aa5ff8bcaaeb4 /src | |
| parent | 4490e256a8cd20f438623f504cac6e44eb023328 (diff) | |
commented LC_LR modification
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] |