(Romance) WIP: remove comparative más,più from A

src/romance/AdjectiveRomance.gf

@@ -3,25 +3,24 @@ incomplete concrete AdjectiveRomance of Adjective =
   flags coding=utf8;
   lin
 
-    PositA a = {
+    PositA a = a ** {
       s = a.s ! Posit ;
-      isPre = a.isPre ;
-      copTyp = a.copTyp
       } ;
-    ComparA a np = {
-      s = \\af => a.s ! Compar ! af ++ conjThan ++ (np.s ! Nom).ton ;
+    ComparA a np = a ** {
+      s = \\af =>
+        let compar : Str = case a.isDeg of {
+          True => a.s ! Compar ! af ;        -- bueno, mejor
+          False => piuComp ++ a.s ! Posit ! af } ; -- cher, plus cher
+        in compar ++ conjThan ++ (np.s ! Nom).ton ;
       isPre = False ;
-      copTyp = a.copTyp
       } ;
     CAdvAP ad ap np = {
       s = \\af => ad.s ++ ap.s ! af ++ ad.p ++ (np.s ! Nom).ton ;
       isPre = False ;
       copTyp = ap.copTyp
       } ;
-    UseComparA a = {
+    UseComparA a = a ** {
       s = \\af => a.s ! Compar ! af ;
-      isPre = a.isPre ;
-      copTyp = a.copTyp
       } ;
     AdjOrd ord = {
       s = \\af => ord.s ! aform2aagr af ; ----

src/romance/CatRomance.gf

@@ -104,8 +104,8 @@ incomplete concrete CatRomance of Cat = CommonX - [SC,Pol]
     V3, V2A, V2V = Verb ** {c2,c3 : Compl} ;
     VS = Verb ** {m : RPolarity => Mood} ;
 
-    A  = {s : Degree => AForm => Str ; isPre : Bool ; copTyp : CopulaType} ;
-    A2 = {s : Degree => AForm => Str ; c2 : Compl ; copTyp : CopulaType} ;
+    A  = {s : Degree => AForm => Str ; isPre : Bool ; copTyp : CopulaType ; isDeg : Bool} ;
+    A2 = {s : Degree => AForm => Str ; c2 : Compl ; copTyp : CopulaType ; isDeg : Bool} ;
 
     N  = Noun ;
     N2 = Noun  ** {c2 : Compl} ;

src/romance/DiffRomance.gf

@@ -100,6 +100,8 @@ interface DiffRomance = open CommonRomance, Prelude in {
 
   subjIf    : Str ;
 
+  piuComp   : Str ; -- to form comparative and superlative: plus cher, más grande, …
+
   relPron   : Bool => AAgr => Case => Str ;
   pronSuch  : AAgr => Str ;