GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-28 12:26:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

support postposition adjectives

Browse Source
This commit is contained in:
Krasimir Angelov
2018-07-03 18:48:46 +02:00
parent 7d01f6720f
commit 6fe595104c
4 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/english/AdjectiveEng.gf
+2 -2
View File
@@ -4,7 +4,7 @@ concrete AdjectiveEng of Adjective = CatEng ** open ResEng, Prelude in {
PositA a = {
s = \\_ => a.s ! AAdj Posit Nom ;
isPre = True
isPre = a.isPre
} ;
ComparA a np = {
s = \\_ => a.s ! AAdj Compar Nom ++ "than" ++ np.s ! npNom ;
@@ -12,7 +12,7 @@ concrete AdjectiveEng of Adjective = CatEng ** open ResEng, Prelude in {
} ;
UseComparA a = {
s = \\_ => a.s ! AAdj Compar Nom ;
isPre = True
isPre = a.isPre
} ;
AdjOrd ord = {