included capitals in some phonological string pattern matching in Fin and Ita

This commit is contained in:
aarne
2013-01-28 14:12:24 +00:00
parent 6af9575a68
commit a36e1de7a6
2 changed files with 4 additions and 3 deletions

View File

@@ -824,7 +824,7 @@ resource MorphoFin = ResFin ** open Prelude in {
} ;
vowHarmony : Str -> Str = \s -> case s of {
_ + ("a" | "o" | "u") + _ => "a" ;
_ + ("a" | "o" | "u" | "A" | "O" | "U") + _ => "a" ;
_ => "ä"
} ;