diff --git a/lib/src/spanish/MorphoSpa.gf b/lib/src/spanish/MorphoSpa.gf index b087761d3..aa9fa0b1a 100644 --- a/lib/src/spanish/MorphoSpa.gf +++ b/lib/src/spanish/MorphoSpa.gf @@ -45,7 +45,7 @@ oper mkNomReg : Str -> Noun = \mec -> case mec of { - _ + "o" | "e" => mkNoun (nomVino mec) Masc ; + _ + ("o" | "e") => mkNoun (nomVino mec) Masc ; _ + "a" => mkNoun (nomVino mec) Fem ; _ + "z" => mkNounIrreg mec (init mec + "ces") Fem ; _ + "án" => mkNounIrreg mec (tk 2 mec + "anes") Masc ; @@ -106,9 +106,9 @@ oper V : Str = case A of { "á" => "a" ; "é" => "e" ; - "í­" => "i" ; - "ó" => "o" ; - "ú" => "u" + "í" => "i" ; + "ó" => "o" ; + "ú" => "u" } ; alemVn : Str = alem + V + "n" ; in mkAdj alemAn (alemVn + "a") (alemVn + "es") @@ -119,7 +119,7 @@ oper _ + "o" => adjSolo solo ; _ + ("e" | "a") => adjUtil solo (solo + "s") ; _ + "és" => adjEs solo ; - _ + ("á" | "é­" | "í" | "ó") + "n" => adjVn solo ; + _ + ("á" | "é" | "í" | "ó" | "ú") + "n" => adjVn solo ; _ => adjUtil solo (solo + "es") } ;