diff options
| -rw-r--r-- | src/GF/UseGrammar/Generate.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/UseGrammar/Generate.hs b/src/GF/UseGrammar/Generate.hs index dfc0783aa..5f07e0b85 100644 --- a/src/GF/UseGrammar/Generate.hs +++ b/src/GF/UseGrammar/Generate.hs @@ -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 |