diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-08-26 07:56:46 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-08-26 07:56:46 +0000 |
| commit | bc3dca68611735257a0b7da41a40852c65286858 (patch) | |
| tree | 283b6d1c0170809500e8578532b33511c0c8778b | |
| parent | f55a6f6bcc0389fbadb7c6353f5ab063fbaba314 (diff) | |
generation bug fix
| -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 |