From e64d5a8bb0f04b6fe298c949ea60331320c98c72 Mon Sep 17 00:00:00 2001 From: bjorn Date: Thu, 30 Oct 2008 15:06:34 +0000 Subject: Removed "that" variant in RelativeEng.IdRP. Added instead that_RP in ExtraEng[Abs]. --- next-lib/src/english/RelativeEng.gf | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'next-lib/src/english/RelativeEng.gf') 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" } ; -- cgit v1.2.3