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 6ae6d665d7
commit 3d20737e95
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)}; s = table{Sg => (mutate sg); Pl => (mutate pl)};
g = g; g = g;
pe = case pl of { pe = case pl of {
_ + v@(#broadVowel) + c@(#consonant*) => Broad; _ + v@(#broadVowel) + c@(#consonant*) + #consonant => Broad;
_ + v@(#slenderVowel) + c@(#consonant*) => Slender; _ + v@(#slenderVowel) + c@(#consonant*) + #consonant => Slender;
_ => NoBreadth _ => NoBreadth
} }
} ; } ;