msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(Fin) d28: works for virsi-virren and kynsi-kynnen

Browse Source
This commit is contained in:
Inari Listenmaa
2023-01-30 16:57:24 +08:00
parent 3ea7af5cb8
commit a6faaeb351
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/finnish/Kotus.gf
View File

@@ -102,7 +102,10 @@ oper
d27 : Str -> NForms -- 23 vuosi
= \s -> dArpi s (Predef.tk 2 s + "den") ;
d28 : Str -> NForms -- 13 virsi
= \s -> dArpi s (Predef.tk 2 s + "ren") ;
= \s -> let vir : Str = Predef.tk 2 s ;
r : Str = last vir ; -- vi[r]si, ky[n]si
ren : Str = r + "en" ; -- vir[ren], kyn[nen]
in dArpi s (vir + ren) ;
d28A : Str -> NForms -- 1 jälsi
= \s -> dArpi s (Predef.tk 2 s + "len") ;
d29 : Str -> NForms -- 1 lapsi