From 8a87dc210c0b6f0ad0a76b56f5ae2fcc7cbbdffd Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 3 Jun 2022 15:26:05 +0300
Subject: [PATCH] (Est) Add linref for VPS

---
 src/estonian/ExtendEst.gf | 3 +++
 src/estonian/ExtraEst.gf  | 1 +
 2 files changed, 4 insertions(+)

diff --git a/src/estonian/ExtendEst.gf b/src/estonian/ExtendEst.gf
index 80c660d0e..3149dc047 100644
--- a/src/estonian/ExtendEst.gf
+++ b/src/estonian/ExtendEst.gf
@@ -54,6 +54,9 @@ concrete ExtendEst of Extend =
     VPI2 = X.VPI ** {c2 : Compl} ;
     [VPI2] = X.ListVPI ** {c2 : Compl}  ;
 
+  linref
+    VPS = X.linVPS (agrP3 Sg) ;
+
   lin
     MkVPS = X.MkVPS ;
     BaseVPS = X.BaseVPS ;
diff --git a/src/estonian/ExtraEst.gf b/src/estonian/ExtraEst.gf
index 4fc96a0b5..0a2e905a8 100644
--- a/src/estonian/ExtraEst.gf
+++ b/src/estonian/ExtraEst.gf
@@ -46,6 +46,7 @@ concrete ExtraEst of ExtraEstAbs = CatEst **
     infVPIF : NPForm -> Polarity -> Agr -> VP -> InfStem -> Str = \sc,pol,agr,vp,if ->
       infVPAnt Simul sc pol agr vp {stem=if ; suf="a"} ;
 
+   linVPS : Agr -> {s : Agr => Str} -> Str = \agr,vps -> vps.s ! agr ;
 
   lincat
     VPS = {