Updated CompatibilityEng to compile with case-inflected Num and Ord.

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