Merge pull request #215 from inariksit/spanish

(Spa) small fixes

src/spanish/DictSpa.gf

@@ -25472,7 +25472,7 @@ lin madera_tierna_N = mkAN madera_N "tierna" ; -- to-check segmentation
 lin madoqua_N = mkN "madoqua" ;
 lin madrastra_N = mkN "madrastra" ;
 lin madraza_N = mkN "madraza" ;
-lin madre_N = mkN "madre" ;
+lin madre_N = mkN "madre" feminine ;
 lin madre_patria_N = mkAN madre_N "patria" ; -- to-check segmentation
 lin madre_politica_N = mkAN madre_N "politica" ; -- to-check segmentation
 lin madreselva_N = mkN "madreselva" ;
@@ -27581,7 +27581,7 @@ lin mugriento_A = mkA "mugriento" ;
 lin mugriento_N = mkN "mugriento" ;
 lin mugroso_A = mkA "mugroso" ;
 lin muitú_N = mkN "muitú" ;
-lin mujer_N = mkN "mujer" ;
+lin mujer_N = mkN "mujer" feminine ;
 lin mujer_de_negocios_N = mkN mujer_N "de negocios" ;
 lin mujer_del_jeque_N = mkN mujer_N "del jeque" ;
 lin mujer_fatal_N = mkAN mujer_N "fatal" ; -- to-check segmentation

src/spanish/ParadigmsSpa.gf

@@ -156,7 +156,7 @@ oper
 
 -- Some adjectives need the feminine form separately.
 
-    mkA : (espanol,espanola : Str) -> A ;
+    mkA : (español,española : Str) -> A ;
 
 -- One-place adjectives compared with "mas" need five forms in the worst
 -- case (masc and fem singular, masc plural, adverbial).
@@ -182,6 +182,8 @@ oper
 
   prefixA : A -> A ; -- adjective before noun (default after noun)
 
+  invarA : Str -> A  -- invariable adjective
+   = \s -> mkA s s s s s ;
 
 --3 Two-place adjectives
 --

src/spanish/StructuralSpa.gf

@@ -10,7 +10,7 @@ lin
   -- have_not_V3
 
   above_Prep = mkPrep "sobre" ;
-  after_Prep = {s = ["despues"] ; c = MorphoSpa.genitive ; isDir = False} ;
+  after_Prep = mkPrep "después" genitive ;
   all_Predet = {
     s = \\a,c => prepCase c ++ aagrForms "todo" "toda" "todos" "todas" ! a ;
     c = Nom ;
@@ -178,4 +178,3 @@ lin
 
   lin language_title_Utt = ss "español" ;
 }
-