From dceb5252a25591016292427d0f315c2845cd241c Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Thu, 8 Jan 2026 09:03:26 +0100
Subject: [PATCH] remove the experimental AnaphPron

---
 src/abstract/Extend.gf     |  3 ---
 src/bulgarian/ExtendBul.gf | 12 ------------
 src/english/ExtendEng.gf   | 14 --------------
 src/spanish/ExtendSpa.gf   |  4 +---
 4 files changed, 1 insertion(+), 32 deletions(-)

diff --git a/src/abstract/Extend.gf b/src/abstract/Extend.gf
index 892ad7ff..686cc61c 100644
--- a/src/abstract/Extend.gf
+++ b/src/abstract/Extend.gf
@@ -299,9 +299,6 @@ fun
 fun
   CardCNCard : Card -> CN -> Card ;  -- three million, four lakh, six dozen etc
 
-fun
-  AnaphPron : NP -> Pron ;
-
 fun
   TPastSimple : Tense ;
 
diff --git a/src/bulgarian/ExtendBul.gf b/src/bulgarian/ExtendBul.gf
index 808be483..6873348f 100644
--- a/src/bulgarian/ExtendBul.gf
+++ b/src/bulgarian/ExtendBul.gf
@@ -316,18 +316,6 @@ lin UseComp_estar = UseComp ;
 
 lin ProDrop pro = pro ;
 
-lin AnaphPron np =
-      case <np.gn, np.p> of {
-        <GSg _, PronP1> => i_Pron ;
-        <GSg _, PronP2> => youSg_Pron ;
-        <GSg Masc,   _> => he_Pron ;
-        <GSg Fem,    _> => she_Pron ;
-        <GSg Neutr,  _> => it_Pron ;
-        <GPl,   PronP1> => we_Pron ;
-        <GPl,   PronP2> => youPl_Pron ;
-        <GPl,        _> => they_Pron
-      } ;
-
 lin TPastSimple = {s = []} ** {t = VPastSimple} ;  --# notpresent
 
 }
diff --git a/src/english/ExtendEng.gf b/src/english/ExtendEng.gf
index d8252c36..033b60c9 100644
--- a/src/english/ExtendEng.gf
+++ b/src/english/ExtendEng.gf
@@ -500,18 +500,4 @@ lin CardCNCard card cn =
 lin theyFem_Pron = mkPron "they" "them" "their" "theirs" plural P3 feminine ;
 lin theyNeutr_Pron = mkPron "they" "them" "their" "theirs" plural P3 nonhuman ;
 
-lin AnaphPron np =
-      case np.a of {
-        AgP1 Sg      => i_Pron ;
-        AgP1 Pl      => we_Pron ;
-        AgP2 Sg      => youSg_Pron ;
-        AgP2 Pl      => youPl_Pron ;
-        AgP3Sg Masc  => he_Pron ;
-        AgP3Sg Fem   => she_Pron ;
-        AgP3Sg Neutr => it_Pron ;
-        AgP3Pl Masc  => they_Pron ;
-        AgP3Pl Fem   => theyFem_Pron ;
-        AgP3Pl Neutr => theyNeutr_Pron
-    } ;
-
 }
diff --git a/src/spanish/ExtendSpa.gf b/src/spanish/ExtendSpa.gf
index 12069287..7c9e1e5a 100644
--- a/src/spanish/ExtendSpa.gf
+++ b/src/spanish/ExtendSpa.gf
@@ -125,9 +125,7 @@ oper
          comp  = \\a => vps.comp ! a ++ (let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) ++ agent ;
         } ;
 
-lin AnaphPron np = agr2pron ! np.a ;
-
-    ExistsNP np =
+lin ExistsNP np =
       mkClause [] True False np.a
       (insertComplement (\\_ => (np.s ! Nom).ton)
          (predV (mkV "existir"))) ;