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, 7 insertions, 7 deletions

diff --git a/next-lib/src/english/AdjectiveEng.gf b/next-lib/src/english/AdjectiveEng.gf
index a060860dd..94b8501ed 100644
--- a/next-lib/src/english/AdjectiveEng.gf
+++ b/next-lib/src/english/AdjectiveEng.gf
@@ -3,20 +3,20 @@ concrete AdjectiveEng of Adjective = CatEng ** open ResEng, Prelude in {
   lin
 
     PositA  a = {
-      s = \\_ => a.s ! AAdj Posit ;
+      s = \\_ => a.s ! AAdj Posit Nom ;
       isPre = True
       } ;
     ComparA a np = {
-      s = \\_ => a.s ! AAdj Compar ++ "than" ++ np.s ! Nom ; 
+      s = \\_ => a.s ! AAdj Compar Nom ++ "than" ++ np.s ! Nom ; 
       isPre = False
       } ;
     UseComparA a = {
-      s = \\_ => a.s ! AAdj Compar ; 
+      s = \\_ => a.s ! AAdj Compar Nom ; 
       isPre = True
       } ;
 
     AdjOrd ord = {
-      s = \\_ => ord.s ;
+      s = \\_ => ord.s ! Nom ;
       isPre = True
       } ;
 
@@ -26,12 +26,12 @@ concrete AdjectiveEng of Adjective = CatEng ** open ResEng, Prelude in {
       } ;
 
     ComplA2 a np = {
-      s = \\_ => a.s ! AAdj Posit ++ a.c2 ++ np.s ! Acc ; 
+      s = \\_ => a.s ! AAdj Posit Nom ++ a.c2 ++ np.s ! Acc ; 
       isPre = False
       } ;
 
     ReflA2 a = {
-      s = \\ag => a.s ! AAdj Posit ++ a.c2 ++ reflPron ! ag ; 
+      s = \\ag => a.s ! AAdj Posit Nom ++ a.c2 ++ reflPron ! ag ; 
       isPre = False
       } ;
 
@@ -46,7 +46,7 @@ concrete AdjectiveEng of Adjective = CatEng ** open ResEng, Prelude in {
       } ;
 
     UseA2 a = {
-      s = \\_ => a.s ! AAdj Posit ;
+      s = \\_ => a.s ! AAdj Posit Nom ;
       isPre = True
       } ;