Added case inflection to English numerals and adjectives, in order to get genitive forms of stand-alone determiners that use Num or Ord right.

1 files changed, 6 insertions, 5 deletions

diff --git a/next-lib/src/english/CatEng.gf b/next-lib/src/english/CatEng.gf
index 9b79f8e36..a9de8bbef 100644
--- a/next-lib/src/english/CatEng.gf
+++ b/next-lib/src/english/CatEng.gf
@@ -52,15 +52,16 @@ concrete CatEng of Cat = CommonX ** open ResEng, Prelude in {
     NP = {s : Case => Str ; a : Agr} ;
     Pron = {s : Case => Str ; sp : Case => Str ; a : Agr} ;
     Det = {s : Str ; sp : Case => Str ; n : Number} ;
-    Predet, Ord = {s : Str} ;
-    Num  = {s : Str ; n : Number ; hasCard : Bool} ;
-    Card = {s : Str ; n : Number} ;
+    Predet = {s : Str} ;
+    Ord = { s : Case => Str } ;
+    Num  = {s : Case => Str ; n : Number ; hasCard : Bool} ;
+    Card = {s : Case => Str ; n : Number} ;
     Quant = {s : Bool => Number => Str ; sp : Bool => Number => Case => Str} ;
 
 -- Numeral
 
-    Numeral = {s : CardOrd => Str ; n : Number} ;
-    Digits  = {s : CardOrd => Str ; n : Number ; tail : DTail} ;
+    Numeral = {s : CardOrd => Case => Str ; n : Number} ;
+    Digits  = {s : CardOrd => Case => Str ; n : Number ; tail : DTail} ;
 
 -- Structural