diff options
| author | bjorn <bjorn@bringert.net> | 2008-10-30 13:10:29 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-10-30 13:10:29 +0000 |
| commit | 0486f4cd37de125618eb585c16395321a9f247a2 (patch) | |
| tree | 08e717a3fb4f1871d58a02671858d2ba889c0531 /next-lib/src | |
| parent | 5e711e7abc33110e0a15a2eceff32946c1a5869d (diff) | |
Removed some unused (and strange) code from MorphoEng.
Why would you want a function that always returns the noun "dog"?
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. |