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

some adjective fixes in FoodsGle

Browse Source
This commit is contained in:
aarne
2011-08-22 14:43:58 +00:00
parent 7b4663067e
commit 36b9d55ed6
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/summerschool/foods/FoodsGle.gf
View File

@@ -36,8 +36,8 @@ concrete FoodsGle of Foods = open MutationsGle, CharactersGle in {
s = table{Sg => (mutate sg); Pl => (mutate pl)};
g = g;
pe = case pl of {
_ + v@(#broadVowel) + c@(#consonant*) => Broad;
_ + v@(#slenderVowel) + c@(#consonant*) => Slender;
_ + v@(#broadVowel) + c@(#consonant*) + #consonant => Broad;
_ + v@(#slenderVowel) + c@(#consonant*) + #consonant => Slender;
_ => NoBreadth
}
} ;