diff options
Diffstat (limited to 'next-lib/src/english/CompatibilityEng.gf')
| -rw-r--r-- | next-lib/src/english/CompatibilityEng.gf | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/next-lib/src/english/CompatibilityEng.gf b/next-lib/src/english/CompatibilityEng.gf index 28ede2a17..63450d0ff 100644 --- a/next-lib/src/english/CompatibilityEng.gf +++ b/next-lib/src/english/CompatibilityEng.gf @@ -5,7 +5,13 @@ concrete CompatibilityEng of Compatibility = CatEng ** open Prelude, ResEng in { -- from Noun 19/4/2008 lin - NumInt n = {s = n.s ; n = Pl ; hasCard = True} ; - OrdInt n = {s = n.s ++ "th"} ; + NumInt n = {s = addGenitiveS n.s ; n = Pl ; hasCard = True} ; + OrdInt n = {s = \\c => n.s ++ (regGenitiveS "th")!c } ; + +oper + -- Note: this results in a space before 's, but there's + -- not mauch we can do about that. + addGenitiveS : Str -> Case => Str = \s -> + table { Gen => s ++ "'s"; _ => s } ; } |