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

1 files changed, 4 insertions, 6 deletions

diff --git a/next-lib/src/english/RelativeEng.gf b/next-lib/src/english/RelativeEng.gf
index 1ec1fc10a..fdaeee907 100644
--- a/next-lib/src/english/RelativeEng.gf
+++ b/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
-      in {
-      s = table {
+     { s = table {
         RC _ Gen => "whose" ; 
-        RC Neutr _  => varr "which" ;
-        RC _ Acc    => varr "whom" ;
-        RC _ Nom    => varr "who" ;
+        RC Neutr _  => "which" ;
+        RC _ Acc    => "whom" ;
+        RC _ Nom    => "who" ;
         RPrep Neutr => "which" ;
         RPrep _     => "whom"
         } ;