From 162d010c1c524a6b761bc50bcfb58f50ad3433d6 Mon Sep 17 00:00:00 2001
From: odanoburu <bcclaro@gmail.com>
Date: Tue, 15 Jan 2019 11:57:49 -0200
Subject: [PATCH] (Por) correct examples + comment unnecessary cases in noun
 paradigms

---
 src/portuguese/MorphoPor.gf    | 6 +++---
 src/portuguese/ParadigmsPor.gf | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/portuguese/MorphoPor.gf b/src/portuguese/MorphoPor.gf
index ffb7f8659..d6448d4bc 100644
--- a/src/portuguese/MorphoPor.gf
+++ b/src/portuguese/MorphoPor.gf
@@ -116,8 +116,8 @@ oper
       mkNoun (nomFalcao vinho) Masc ;
 
     -- problema, carro, maracujá
-    proble + ("ma"|"o"|"á") =>
-      mkNoun (nomVinho vinho) Masc ;
+    -- proble + ("ma"|"o"|"á") =>
+    --   mkNoun (nomVinho vinho) Masc ;
 
     ma + ("r"|"z"|"n") => mkNoun (nomRapaz vinho) Masc ;
 
@@ -134,7 +134,7 @@ oper
 
     ônibu + "s" => mkNoun (nomAreia vinho) Masc ;
 
-    urub + "u" => mkNoun (nomVinho vinho) Masc ;
+    --urub + "u" => mkNoun (nomVinho vinho) Masc ;
 
     -- tórax/Masc, xerox/Fem
     tóra + "x" => mkNoun (nomAreia vinho) Masc ;
diff --git a/src/portuguese/ParadigmsPor.gf b/src/portuguese/ParadigmsPor.gf
index 2d2bdeb32..93b769973 100644
--- a/src/portuguese/ParadigmsPor.gf
+++ b/src/portuguese/ParadigmsPor.gf
@@ -105,7 +105,7 @@ oper
   -- for which heuristic).
   mkN = overload {
 
-    mkN : (luz : Str) -> N -- predictable nouns
+    mkN : (revolução : Str) -> N -- predictable nouns
       = regN ;
 
     mkN : (alemão, alemães : Str) -> N -- force noun plural, guess gender
@@ -114,7 +114,7 @@ oper
     mkN : (mapa : Str) -> Gender -> N -- force gender, guess plural
       = \s,g -> regN s ** {g = g} ;
 
-    mkN : (bastão,bastões : Str) -> Gender -> N -- the worst case demands two forms (singular + plural) and the gender.
+    mkN : (mão,mãos : Str) -> Gender -> N -- the worst case demands two forms (singular + plural) and the gender.
       = mk2N
     } ;
 
@@ -256,7 +256,7 @@ oper
     mkA : (blanco : A) -> (hueso : Str) -> A -- noninflecting component after the adjective
       = mkNonInflectA ;
 
-    mkA : A -> CopulaType -> A -- force copula type, e.g. "João está doente", "João é doente". Choose among ``serCopula``, ``estarCopula``, and ``ficarCopula``
+    mkA : A -> CopulaType -> A -- force copula type, e.g. "João está doente" instead of "João é doente". Choose among ``serCopula``, ``estarCopula``, and ``ficarCopula``.
       = adjCopula ;
 
     } ;