From 419f9bf5e108dd4c445a9e2fb48474f1c9c13f95 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Sun, 26 Aug 2007 07:56:46 +0000
Subject: [PATCH] generation bug fix

---
 src/GF/UseGrammar/Generate.hs | 4 ++--
 1 file 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