fixed three paradigms in Finnish Kotus: lapsi, veitsi, harkita

This commit is contained in:
Aarne Ranta
2018-10-11 06:58:57 +02:00
parent 05ed75c131
commit 56fd159e34
2 changed files with 5 additions and 5 deletions

View File

@@ -106,11 +106,11 @@ oper
d28A : Str -> NForms -- 1 jälsi
= \s -> dArpi s (Predef.tk 2 s + "len") ;
d29 : Str -> NForms -- 1 lapsi
= \s -> let lapsi = dArpi s (init s + "en") in
table {2 => Predef.tk 3 s + "ta" ; i => lapsi ! i} ;
= \s -> let lapsi = dArpi s (init s + "en") ; a = vowHarmony s in
table {2 => Predef.tk 3 s + "st" + a ; i => lapsi ! i} ;
d30 : Str -> NForms -- 2 veitsi
= \s -> let lapsi = dArpi s (init s + "en") in
table {2 => Predef.tk 3 s + "stä" ; i => lapsi ! i} ;
= \s -> let lapsi = dArpi s (init s + "en") ; a = vowHarmony s in
table {2 => Predef.tk 3 s + "st" + a ; i => lapsi ! i} ;
d31 : Str -> NForms -- 3 yksi
= \s -> let
y = Predef.tk 3 s ;

View File

@@ -639,7 +639,7 @@ resource MorphoFin = ResFin ** open Prelude in {
in vForms12
harkita
(harkit + "sen")
(harkit + "se")
(harkit + "see")
(harkit + "sev" + a + "t")
(harkit + "k" + a + a)
(harkit + a + a + "n")