diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-11-12 20:48:01 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-11-12 20:48:01 +0000 |
| commit | 49c8a52adea8056bc1f55e62e2d9c30a446d1ead (patch) | |
| tree | 99163d5c090c59879a49305e7a78e755772c3ea3 /src/GF/Canon/GFCC/GenGFCC.hs | |
| parent | 52bb034d8ea07433e03de4c320db013b7c62aee7 (diff) | |
robustness to gfcc interpreter ; make gfcc to bin
Diffstat (limited to 'src/GF/Canon/GFCC/GenGFCC.hs')
| -rw-r--r-- | src/GF/Canon/GFCC/GenGFCC.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |