From 49c8a52adea8056bc1f55e62e2d9c30a446d1ead Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Sun, 12 Nov 2006 20:48:01 +0000
Subject: robustness to gfcc interpreter ; make gfcc to bin

---
 src/GF/Canon/GFCC/GenGFCC.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/GF/Canon/GFCC/GenGFCC.hs')

diff --git a/src/GF/Canon/GFCC/GenGFCC.hs b/src/GF/Canon/GFCC/GenGFCC.hs
index 00821cceb..f1d4e8923 100644
--- a/src/GF/Canon/GFCC/GenGFCC.hs
+++ b/src/GF/Canon/GFCC/GenGFCC.hs
@@ -43,6 +43,7 @@ generateRandom gen gfcc cat = genTrees (randomRs (0.0, 1.0) gen) cat where
     gett ds (CId "Int")    = (Tr (AI 12345) [], 1)
     gett [] _ = (Tr (AS "TIMEOUT") [], 1) ----
     gett ds cat = case fns cat of
+      [] -> (Tr AM [],1)
       fs -> let 
           d:ds2    = ds
           (f,args) = getf d fs
-- 
cgit v1.2.3