diff --git a/src/turkish/AdjectiveTur.gf b/src/turkish/AdjectiveTur.gf index f8dad70e..5c79568f 100644 --- a/src/turkish/AdjectiveTur.gf +++ b/src/turkish/AdjectiveTur.gf @@ -1,14 +1,21 @@ concrete AdjectiveTur of Adjective = CatTur ** open ResTur, Prelude in { lin + PositA a = {s=a.s} ; + ComparA a np = { s = \\n,c => np.s ! Ablat ++ a.s ! n ! c ; - } ; + } ; + UseComparA a = { s = \\n,c => "daha" ++ a.s ! n ! c - } ; + } ; AdjOrd v = v ; + AdvAP ap adv = { + s = \\n, c => adv.s ++ ap.s ! n ! c + } ; + }