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

(Romance) Remove traces of Degree in Extend

Browse Source
This commit is contained in:
Inari Listenmaa
2021-09-15 15:08:39 +08:00
parent 88d0217d10
commit ef3270ae29
3 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/portuguese/ExtendPor.gf
View File

@@ -75,7 +75,7 @@ concrete ExtendPor of Extend = CatPor ** ExtendRomanceFunctor -
CompoundAP noun adj = { CompoundAP noun adj = {
s = \\af => case (aform2aagr af) of { s = \\af => case (aform2aagr af) of {
{n = n} => adj.s ! Posit ! (genNum2Aform noun.g n) ++ "de" ++ noun.s ! n {n = n} => adj.s ! genNum2Aform noun.g n ++ "de" ++ noun.s ! n
} ; } ;
isPre = adj.isPre ; isPre = adj.isPre ;
copTyp = adj.copTyp copTyp = adj.copTyp

2
src/romance/ExtendRomanceFunctor.gf
View File

@@ -214,7 +214,7 @@ incomplete concrete ExtendRomanceFunctor of Extend =
} ; } ;
UttAdV av = av ; UttAdV av = av ;
PositAdVAdj a = { PositAdVAdj a = {
s = a.s ! Posit ! AA s = a.s ! AA
} ; } ;
lin lin

2
src/spanish/ExtendSpa.gf
View File

@@ -78,7 +78,7 @@ concrete ExtendSpa of Extend = CatSpa ** ExtendRomanceFunctor -
CompoundAP noun adj = { CompoundAP noun adj = {
s = \\af => case (aform2aagr af) of { s = \\af => case (aform2aagr af) of {
{n = n} => adj.s ! Posit ! (genNum2Aform noun.g n) ++ "de" ++ noun.s ! n {n = n} => adj.s ! genNum2Aform noun.g n ++ "de" ++ noun.s ! n
} ; } ;
isPre = adj.isPre ; isPre = adj.isPre ;
copTyp = adj.copTyp copTyp = adj.copTyp