GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

commented LC_LR modification

Browse Source
This commit is contained in:
bringert
2007-03-25 16:34:53 +00:00
parent 4905996816
commit 2091df47fe
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Speech/TransformCFG.hs
View File

@@ -145,6 +145,8 @@ removeLeftRecursion start gr
x <- properLeftCornersOf a, x <- properLeftCornersOf a,
not (isLeftRecursive x), not (isLeftRecursive x),
let a_x = mkCat (Cat a) 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, a_x `Set.member` newCats,
let n' = symbol (\_ -> CFApp (CFRes 1) (CFRes 0)) let n' = symbol (\_ -> CFApp (CFRes 1) (CFRes 0))
(\_ -> CFRes 0) x] (\_ -> CFRes 0) x]