From 1dc1530b20ec3185e5e7094a284ed1371852a58c Mon Sep 17 00:00:00 2001
From: aarneranta <aarne@chalmers.se>
Date: Mon, 29 Mar 2021 13:05:05 +0200
Subject: [PATCH] fixes in Fin: mkPrep with three arguments, pieni_A in
 MorphoDict

---
 src/finnish/ParadigmsFin.gf        | 10 ++++++----
 src/morphodict/MorphoDictFin.gf    |  2 +-
 src/morphodict/MorphoDictFinAbs.gf |  2 +-
 3 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/src/finnish/ParadigmsFin.gf b/src/finnish/ParadigmsFin.gf
index 51a0f41a8..6570c591a 100644
--- a/src/finnish/ParadigmsFin.gf
+++ b/src/finnish/ParadigmsFin.gf
@@ -76,14 +76,16 @@ oper
   casePrep    : Case ->        Prep ;  -- just case, e.g. adessive
 
   mkPrep = overload {
-    mkPrep : Case -> Prep
+    mkPrep : Case -> Prep  -- inessive
      = casePrep ;
-    mkPrep : Str -> Prep
+    mkPrep : Str -> Prep   -- kanssa
      = postGenPrep ;
-    mkPrep : Case -> Str -> Prep
+    mkPrep : Case -> Str -> Prep  -- genitive kanssa
      = postPrep ;
-    mkPrep : Str -> Case -> Prep
+    mkPrep : Str -> Case -> Prep  -- ilman partitive
      = \s,c -> prePrep c s ;
+    mkPrep : Str -> Case -> Str -> Prep  -- yhdessä genitive kanssa
+     = \s,c,t -> lin Prep {c = NPCase c ; s = <s,t,\\_ => []>}
     } ;
 
   accusative : Prep
diff --git a/src/morphodict/MorphoDictFin.gf b/src/morphodict/MorphoDictFin.gf
index c02132c19..8500bce06 100644
--- a/src/morphodict/MorphoDictFin.gf
+++ b/src/morphodict/MorphoDictFin.gf
@@ -24619,7 +24619,7 @@ lin pienennös_N = mkN {s = d39 "pienennös"} ;
 lin pienentyä_V = mkV {s = c52A "pienentyä"} ;
 lin pienentää_V = mkV {s = c54A "pienentää"} ;
 lin pienetä_V = mkV {s = c72 "pienetä"} ;
-lin pieni_N = mkN {s = d26 "pieni"} ;
+lin pieni_A = mkA (mkN {s = d26 "pieni"}) ;
 lin pieniä_V = mkV {s = c61 "pieniä"} ;
 lin piennar_N = mkN {s = d49A "piennar"} ;
 lin pienoinen_N = mkN {s = d38 "pienoinen"} ;
diff --git a/src/morphodict/MorphoDictFinAbs.gf b/src/morphodict/MorphoDictFinAbs.gf
index 30a1067cb..2783ee099 100644
--- a/src/morphodict/MorphoDictFinAbs.gf
+++ b/src/morphodict/MorphoDictFinAbs.gf
@@ -24613,7 +24613,7 @@ fun pienennös_N : N ;
 fun pienentyä_V : V ;
 fun pienentää_V : V ;
 fun pienetä_V : V ;
-fun pieni_N : N ;
+fun pieni_A : A ;
 fun pieniä_V : V ;
 fun piennar_N : N ;
 fun pienoinen_N : N ;