Removed "that" variant in RelativeEng.IdRP. Added instead that_RP in ExtraEng[Abs].

next-lib/src/english/ExtraEng.gf

@@ -50,4 +50,17 @@ concrete ExtraEng of ExtraEngAbs = CatEng **
   oper
     neg = CNeg False ; 
 
+
+  lin
+    that_RP = 
+    { s = table {
+        RC _ Gen    => "whose" ; 
+        RC _ _      => "that" ;
+        RPrep Neutr => "which" ;
+        RPrep _     => "whom"
+        } ;
+      a = RNoAg
+      } ;
+
+
 } 

next-lib/src/english/ExtraEngAbs.gf

@@ -13,4 +13,6 @@ abstract ExtraEngAbs = Extra ** {
 
     CompoundCN : CN -> CN -> CN ;       -- rock album
 
+    that_RP : RP ; -- "that" as a relational pronoun (IdRP is "which" / "who")
+
 }

next-lib/src/english/RelativeEng.gf

@@ -38,13 +38,11 @@ concrete RelativeEng of Relative = CatEng ** open ResEng in {
       } ;
 
     IdRP = 
-      let varr : Str -> Str = \x -> variants {x ; "that"} --- for bwc
+     { s = table {
-      in {
-      s = table {
         RC _ Gen => "whose" ; 
-        RC Neutr _  => varr "which" ;
+        RC Neutr _  => "which" ;
-        RC _ Acc    => varr "whom" ;
+        RC _ Acc    => "whom" ;
-        RC _ Nom    => varr "who" ;
+        RC _ Nom    => "who" ;
         RPrep Neutr => "which" ;
         RPrep _     => "whom"
         } ;