msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

fix CompAP

Browse Source
This commit is contained in:
krangelov
2020-04-14 11:09:44 +02:00
parent 31a09ec2f3
commit b18723aa9b
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/turkish/VerbTur.gf
View File

@@ -48,10 +48,9 @@ concrete VerbTur of Verb = CatTur ** open Prelude, ResTur, SuffixTur, HarmonyTur
CompAP ap = lin VP { CompAP ap = lin VP {
s = table { s = table {
VPres agr => ap.s ! agr.n ! Nom ++ VPres agr => case agr.p of {
case agr.p of { P3 => ap.s ! Sg ! Nom ;
P3 => [] ; _ => ap.s ! agr.n ! Nom ++ suffixStr ap.h (verbSuffixes ! agr)
_ => suffixStr ap.h (verbSuffixes ! agr)
} ; } ;
VProg agr => ap.s ! agr.n ! Nom ; VProg agr => ap.s ! agr.n ! Nom ;
VPast agr => ap.s ! agr.n ! Nom ++ VPast agr => ap.s ! agr.n ! Nom ++