diff options
| author | aarne <aarne@chalmers.se> | 2011-08-22 14:43:58 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2011-08-22 14:43:58 +0000 |
| commit | 36b9d55ed68154d4b93d052b499c091ac83b7a63 (patch) | |
| tree | 29f8d9e510840d62ea38fd901cf1f3cfd644eebb | |
| parent | 7b4663067e24da662d3b2b02375d8bb7fb3cbedd (diff) | |
some adjective fixes in FoodsGle
| -rw-r--r-- | contrib/summerschool/foods/FoodsGle.gf | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/summerschool/foods/FoodsGle.gf b/contrib/summerschool/foods/FoodsGle.gf index 4e91e7046..e48c0c21b 100644 --- a/contrib/summerschool/foods/FoodsGle.gf +++ b/contrib/summerschool/foods/FoodsGle.gf @@ -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
}
} ;
|