From 5e87b6ef983a11257eafec7fa1d8216bbe9a300e Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 5 Nov 2007 21:55:17 +0000 Subject: fixed variants bug in GFCC.Linearize: l. 64,46 'r' must be 'p' --- src/GF/GFCC/doc/gfcc.txt | 1 + 1 file changed, 1 insertion(+) (limited to 'src/GF/GFCC/doc') diff --git a/src/GF/GFCC/doc/gfcc.txt b/src/GF/GFCC/doc/gfcc.txt index 0eca6192c..6a78a62f6 100644 --- a/src/GF/GFCC/doc/gfcc.txt +++ b/src/GF/GFCC/doc/gfcc.txt @@ -363,6 +363,7 @@ compute gfcc lang args = comp where proj r p = case (r,p) of (_, FV ts) -> FV $ Prelude.map (proj r) ts + (FV ts, _ ) -> FV $ Prelude.map (\t -> proj t p) ts (W s t, _) -> kks (s ++ getString (proj t p)) _ -> comp $ getField r (getIndex p) -- cgit v1.2.3