From 86878c0cf4b1c6bca76bfdbaa7a8d394b99d13d8 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Wed, 19 Nov 2008 14:28:50 +0000
Subject: Updated CompatibilityEng to compile with case-inflected Num and Ord.

---
 next-lib/src/english/CompatibilityEng.gf | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'next-lib/src/english/CompatibilityEng.gf')

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 } ;
 
 }
-- 
cgit v1.2.3