GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

fixed variants bug in GFCC.Linearize: l. 64,46 'r' must be 'p'

Browse Source
This commit is contained in:
aarne
2007-11-05 21:55:17 +00:00
parent 0c99b0ad08
commit 446d99c370
2 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/GFCC/Linearize.hs
View File

@@ -61,7 +61,7 @@ compute mcfg lang args = comp where
proj r p = case (r,p) of proj r p = case (r,p) of
(_, FV ts) -> FV $ lmap (proj r) ts (_, FV ts) -> FV $ lmap (proj r) ts
(FV ts, _ ) -> FV $ lmap (\t -> proj t r) ts (FV ts, _ ) -> FV $ lmap (\t -> proj t p) ts
(W s t, _) -> kks (s ++ getString (proj t p)) (W s t, _) -> kks (s ++ getString (proj t p))
_ -> comp $ getField r (getIndex p) _ -> comp $ getField r (getIndex p)

1
src/GF/GFCC/doc/gfcc.txt
View File

@@ -363,6 +363,7 @@ compute gfcc lang args = comp where
proj r p = case (r,p) of proj r p = case (r,p) of
(_, FV ts) -> FV $ Prelude.map (proj r) ts (_, 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)) (W s t, _) -> kks (s ++ getString (proj t p))
_ -> comp $ getField r (getIndex p) _ -> comp $ getField r (getIndex p)