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

(Romance) different ComparAgr for French

Browse Source
This commit is contained in:
Inari Listenmaa
2021-09-14 17:36:52 +08:00
parent 9620c738c5
commit b696b9e932
4 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/romance/AdjectiveRomance.gf
+2 -2
View File
@@ -7,7 +7,7 @@ incomplete concrete AdjectiveRomance of Adjective =
ComparA a np = a ** {
s = \\af =>
let compar : Str = case a.isDeg of {
True => a.compar ! af2num af ; -- bueno, mejor
True => a.compar ! af2compar af ; -- bueno, mejor
False => piuComp ++ a.s ! af } ; -- cher, plus cher
in compar ++ conjThan ++ (np.s ! Nom).ton ;
isPre = False ;
@@ -18,7 +18,7 @@ incomplete concrete AdjectiveRomance of Adjective =
} ;
UseComparA a = a ** {
s = \\af => case a.isDeg of {
True => a.compar ! af2num af ;
True => a.compar ! af2compar af ;
False => piuComp ++ a.s ! af }
} ;
AdjOrd ord = {