change in Romance agreement to produce correct number for polite singular pronouns ; linking functions that involve mkClause now takes a long time and should be revised

lib/src/catalan/DiffCat.gf

@@ -88,10 +88,11 @@ oper
    infForm _ _ _ _  = True ;
  
    mkImperative b p vp = {
-      s = \\pol,aag => 
+      s = \\pol,agr => 
         let 
           pe    = case b of {True => P3 ; _ => p} ;
-          agr   = aag ** {p = pe} ;
+----          agr   = aag ** {p = pe} ;
+          aag   = verbAgr agr ; ----
           clpr  = <[],[],False> ; ----e pronArg agr.n agr.p vp.clAcc vp.clDat ;
 ----e          verb  = case <aag.n, pol,pe> of {
 ----e            <Sg,Neg,P2> => (vp.s ! VPInfinit Simul clpr.p3).inf ! aag ;

lib/src/catalan/IdiomCat.gf

@@ -38,7 +38,7 @@ concrete IdiomCat of Idiom = CatCat **
       } ;
 
     ImpPl1 vp = {s =
-      (mkImperative False P1 vp).s ! Pos ! {n = Pl ; g = Masc} --- fem
+      (mkImperative False P1 vp).s ! Pos ! Ag Masc Pl P1 ; --- fem
       } ;
 
     CleftAdv ad s = mkClause [] True (agrP3 Masc Sg) 

lib/src/catalan/MorphoCat.gf

@@ -146,7 +146,7 @@ oper
       <Sg,Fem>  => sa ;
       _         => ses
       } ;
-    a = {g = g ; n = n ; p = p} ;
+    a = Ag g n p ;
     hasClit = True
     } ;