From c6b99371a62ae8b3e6b4f6b1782b344bdc45159a Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 3 Apr 2019 14:07:21 +0200
Subject: [PATCH] (Spa) Add new words in Dict + fix Dict.bueno_A and
 Lexicon.good_A

---
 src/spanish/DictSpa.gf    | 4 +++-
 src/spanish/DictSpaAbs.gf | 2 ++
 src/spanish/LexiconSpa.gf | 2 +-
 3 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/spanish/DictSpa.gf b/src/spanish/DictSpa.gf
index 4d722116..99b605f0 100644
--- a/src/spanish/DictSpa.gf
+++ b/src/spanish/DictSpa.gf
@@ -7273,7 +7273,7 @@ lin buenas_noches_Interj = mkInterj "buenas noches" ;
 lin buenas_noches_N = mkAN buenas_N "noches" ; -- to-check segmentation
 lin buenas_tardes_Interj = mkInterj "buenas tardes" ;
 lin buenas_tardes_N = mkAN buenas_N "tardes" ; -- to-check segmentation
-lin bueno_A = mkA "bueno" ;
+lin bueno_A = L.good_A ;
 lin bueno_Interj = mkInterj "bueno" ;
 lin bueno_N = mkN "bueno" ;
 lin bueno_para_nada_A = invarA "bueno para nada" ;
@@ -14745,6 +14745,7 @@ lin doctrina_judicial_N = mkAN doctrina_N "judicial" ; -- to-check segmentation
 lin doctrinal_A = mkA "doctrinal" ;
 lin documentación_N = mkN "documentación" ;
 lin documentación_de_software_N = mkN documentación_N "de software" ;
+lin documentado_A = mkA "documentado" ;
 lin documental_A = mkA "documental" ;
 lin documental_N = mkN "documental" ;
 lin documentar_V = mkV "documentar" ;
@@ -27143,6 +27144,7 @@ lin moho_mucilaginoso_verdadero_N = mkAN (mkAN moho_N "mucilaginoso") "verdadero
 lin mohoso_A = mkA "mohoso" ;
 lin mohria_N = mkN "mohria" ;
 lin mohín_N = mkN "mohín" ;
+lin mojado_A = mkA "mojado" ;
 lin mojar_V = mkV "mojar" ;
 lin mojave_N = mkN "mojave" ;
 lin mojiganga_N = mkN "mojiganga" ;
diff --git a/src/spanish/DictSpaAbs.gf b/src/spanish/DictSpaAbs.gf
index 2fa5f665..f9a66cb0 100644
--- a/src/spanish/DictSpaAbs.gf
+++ b/src/spanish/DictSpaAbs.gf
@@ -14958,6 +14958,7 @@ fun doctrina_judicial_N : N ;
 fun doctrinal_A : A ;
 fun documentación_N : N ;
 fun documentación_de_software_N : N ;
+fun documentado_A : A ;
 fun documental_A : A ;
 fun documental_N : N ;
 fun documentar_V : V ;
@@ -27589,6 +27590,7 @@ fun moho_mucilaginoso_verdadero_N : N ;
 fun mohoso_A : A ;
 fun mohria_N : N ;
 fun mohín_N : N ;
+fun mojado_A : A ;
 fun mojar_V : V ;
 fun mojave_N : N ;
 fun mojiganga_N : N ;
diff --git a/src/spanish/LexiconSpa.gf b/src/spanish/LexiconSpa.gf
index 6325ce5f..ef34f12c 100644
--- a/src/spanish/LexiconSpa.gf
+++ b/src/spanish/LexiconSpa.gf
@@ -85,7 +85,7 @@ lin
    girl_N = regN "niña" ;
    glove_N = regN "guante" ;
    gold_N = regN "oro" ;
-   good_A = prefA (mkADeg (regA "bueno") (regA "mejor")) ; ---- adv?
+   good_A = prefA (mkA (mkA "buen" "bueno" "buena" "buena" "buenos" "buenas" "bien")) (mkA "mejor")) ;
    go_V = (verboV (ir_46 "ir")) ;
    green_A = regADeg "verde" ;
    harbour_N = regN "puerto" ;