From 21f468a5f5c8f3c4165777459cbc34a70057b4cd Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Mon, 4 May 2020 13:14:44 +0200
Subject: [PATCH] fixes in Slo demonstrative forms

---
 src/slovak/ResSlo.gf        | 3 ++-
 src/slovak/StructuralSlo.gf | 4 ++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/slovak/ResSlo.gf b/src/slovak/ResSlo.gf
index e190cd27..802dec78 100644
--- a/src/slovak/ResSlo.gf
+++ b/src/slovak/ResSlo.gf
@@ -832,7 +832,8 @@ oper
     in {
       s = \\g,n,c => case <g,n,c> of {
         <_,Pl,Dat> => dem.pdat ;
-	<Masc _ | Fem, Pl, Acc> => dem.fpnom ;
+	<Masc Anim,         Pl,     Acc> => dem.pgen ;
+	<Masc Inanim | Fem | Neutr, Pl, Nom|Acc> => dem.fpnom ;
         _ => adjAdj.s ! g ! n ! c
         } + s
       } ;
diff --git a/src/slovak/StructuralSlo.gf b/src/slovak/StructuralSlo.gf
index 9d768259..08cb8308 100644
--- a/src/slovak/StructuralSlo.gf
+++ b/src/slovak/StructuralSlo.gf
@@ -15,8 +15,8 @@ lin
 ---    somePl_Det = {s = \\g,c => (demPronFormsAdjective (mkDemPronForms "niekoľko") "").s ! g ! Pl ! c ; size = Num5} ;
     something_NP = {s,clit,prep = \\c => "nie" + coForms ! c ; a = Ag Neutr Sg P3 ; hasClit = False} ; -- CEG 5.6.3
     possess_Prep = mkPrep "" Gen ;
-    that_Quant = demPronFormsAdjective (tenDemPronForms "tam") "" ;
-    this_Quant = demPronFormsAdjective (tenDemPronForms "" ** {msgen = "toho"}) "" ;
+    that_Quant = demPronFormsAdjective (tenDemPronForms "") "" ;
+    this_Quant = demPronFormsAdjective (tenDemPronForms "" ** {msgen = "toh"}) "to" ;
     to_Prep = mkPrep "do" Gen ;
     with_Prep = mkPrep (pre {"s" => "so" ; _ => "s"}) Ins ;