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

Indentational fixes

Browse Source
This commit is contained in:
Ayberk Tosun
2017-08-23 15:51:06 +03:00
parent 7bb404638a
commit e621fbbdcd
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/turkish/AdjectiveTur.gf
View File

@@ -1,14 +1,21 @@
concrete AdjectiveTur of Adjective = CatTur ** open ResTur, Prelude in { concrete AdjectiveTur of Adjective = CatTur ** open ResTur, Prelude in {
lin lin
PositA a = {s=a.s} ; PositA a = {s=a.s} ;
ComparA a np = { ComparA a np = {
s = \\n,c => np.s ! Ablat ++ a.s ! n ! c ; s = \\n,c => np.s ! Ablat ++ a.s ! n ! c ;
} ; } ;
UseComparA a = { UseComparA a = {
s = \\n,c => "daha" ++ a.s ! n ! c s = \\n,c => "daha" ++ a.s ! n ! c
} ; } ;
AdjOrd v = v ; AdjOrd v = v ;
AdvAP ap adv = {
s = \\n, c => adv.s ++ ap.s ! n ! c
} ;
} }