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 } } ;