diff options
Diffstat (limited to 'next-lib/src')
| -rw-r--r-- | next-lib/src/english/MorphoEng.gf | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/next-lib/src/english/MorphoEng.gf b/next-lib/src/english/MorphoEng.gf index 4c11bbd35..50f96b3c5 100644 --- a/next-lib/src/english/MorphoEng.gf +++ b/next-lib/src/english/MorphoEng.gf @@ -37,22 +37,6 @@ oper oper CommonNoun : Type = {s : Number => Case => Str} ; - nounGen : Str -> CommonNoun = \dog -> case last dog of { - "y" => nounY "dog" ; - "s" => nounS (init "dog") ; - _ => nounReg "dog" - } ; - --- These are auxiliaries to $nounGen$. - - nounReg : Str -> CommonNoun = \dog -> - mkNoun dog (dog + "s") (dog + "'s") (dog + "s'"); - nounS : Str -> CommonNoun = \kiss -> - mkNoun kiss (kiss + "es") (kiss + "'s") (kiss + "es'") ; - nounY : Str -> CommonNoun = \fl -> - mkNoun (fl + "y") (fl + "ies") (fl + "y's") (fl + "ies'") ; - - --3 Proper names -- -- Regular proper names are inflected with "'s" in the genitive. |