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

generation bug fix

Browse Source
This commit is contained in:
aarne
2007-08-26 07:56:46 +00:00
parent 217f485491
commit 419f9bf5e1
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/UseGrammar/Generate.hs
View File

@@ -83,8 +83,8 @@ generate gr opts cat i mn mt = case mt of
(f,(cs,_)) <- funs c, (f,(cs,_)) <- funs c,
let alts = map (gener (i-1)) cs, let alts = map (gener (i-1)) cs,
ts <- combinations alts, ts <- combinations alts,
let tr = SApp (f, ts), let tr = SApp (f, ts)
depth tr >= i -- depth tr >= i -- NO!
] ]
allTrees = genAll i allTrees = genAll i