(Por) minor updates

- correction in Lexicon
- documentation in Morpho
- rm variants from Structural

src/portuguese/LexiconPor.gf

@@ -281,8 +281,8 @@ lin
    kill_V2       = dirV2 (mkV "matar") ;
    know_V2       = mkV2 (mkV "conhecer") ;
    learn_V2      = dirV2 (mkV "aprender") ;
-   leave_V2      = dirV2 (mkV "partir") ;	-- irse, dejar
+   leave_V2      = dirV2 (mkV "partir") ;
-   like_V2       = dirV2 (mkV "gostar") ;
+   like_V2       = mkV2 (mkV "gostar") genitive ;
    listen_V2     = dirV2 (mkV "escutar") ;
    lose_V2       = dirV2 (mkV (perder_44 "perder")) ;
    love_V2       = dirV2 (mkV "amar") ;

src/portuguese/MorphoPor.gf

@@ -210,8 +210,11 @@ oper
      hasClit = True ; isPol = False
     } ** pronLin ele o lhe Ele ;
 
-  pronLin : (_,_,_,_ : Str) -> {s : Case =>  {c1,c2,comp,ton : Str}}
+  pronLin : (_,_,_,_ : Str) -> {s : Case =>  {c1,c2,comp,ton : Str}} ;
-    = \você, o, lhe, Você ->
+  -- change pronoun's linearizations without changing its agreement
+  -- features (doesn't change possessive linearizations either). e.g.,
+  -- he_Pron -> you_Pron
+  pronLin = \você, o, lhe, Você ->
     let
       aVocê : Case -> Str = \x -> prepCase x ++ Você ;
     in
@@ -223,11 +226,15 @@ oper
        }
     } ;
 
-  pronAgr : Pronoun -> Gender -> Number -> Person -> Pronoun
+  pronAgr : Pronoun -> Gender -> Number -> Person -> Pronoun ;
-    = \pron, g, n, p -> pron ** {a = Ag g n p} ;
+  -- change a pronoun's agreement features without changing its
+  -- linearization field (e.g., You_Pron -> YouFem_Pron)
+  pronAgr = \pron, g, n, p -> pron ** {a = Ag g n p} ;
 
   mkPronFrom : Pronoun -> (_,_,_,_ : Str) -> Gender -> Number -> Person
-    -> Pronoun = \pron, você, o, lhe, Você, g, n, p ->
+    -> Pronoun ;
+  -- change everything in a pronoun but its possessive linearizations
+  mkPronFrom = \pron, você, o, lhe, Você, g, n, p ->
     (pronAgr pron g n p) ** pronLin você o lhe Você ;
 
 

src/portuguese/StructuralPor.gf

@@ -24,7 +24,9 @@ concrete StructuralPor of Structural = CatPor **
       "ela" "a" "lhe" "ela"
       Fem Sg P3 ;
     youSg_Pron = he_Pron ** pronLin "você" "te" "lhe" "você" ;
-    youPol_Pron =  youPlPol_Pron | youSgPol_Pron ;
+    youPol_Pron = mkPronoun "tu" "te" "te" "ti"
+      "teu" "tua" "teus" "tuas"
+      Masc Sg P2 ;
     we_Pron =
       mkPronoun
       "nós" "nos" "nos" "nós" "nosso" "nossa" "nossos" "nossas"
@@ -158,13 +160,6 @@ concrete StructuralPor of Structural = CatPor **
     -- is it still necessary after deleting the Spa confusion? y/e
     etConj : {s : Str ; n : MorphoPor.Number} = {s = "e"} ** {n = Pl} ;
 
-    youSgPol_Pron : Pronoun =
-      mkPronoun "tu" "te" "te" "ti" "teu" "tua" "teus" "tuas"
-      Masc Sg P2 ;
-    youPlPol_Pron : Pronoun =
-      mkPronoun "vós" "vos" "vos" "vós"
-      "vosso" "vossa" "vossos" "vossas"
-      Masc Pl P2 ;
   lin
     as_CAdv = X.mkCAdv "tão" conjThan ; ----
     have_V2 = dirV2 (mkV (ter_1 "ter")) ;