msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Fixed typos in MorphoSpa

Browse Source 
Just some things that were mistyped in the previous fix (like forgotten parentheses).
This commit is contained in:
inari.listenmaa
2013-03-07 10:56:05 +00:00
parent 76902d3215
commit 2689d1a6a1
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/src/spanish/MorphoSpa.gf
View File

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