GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -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,
let alts = map (gener (i-1)) cs,
ts <- combinations alts,
let tr = SApp (f, ts),
depth tr >= i
let tr = SApp (f, ts)
-- depth tr >= i -- NO!
]
allTrees = genAll i