Fixes add_sya

This commit is contained in:
Roman Suzi
2020-05-09 00:12:23 +03:00
parent e50cc6f6e4
commit 61b74dc829

View File

@@ -1290,7 +1290,7 @@ oper verbDeclMoch: Aspect -> Conjugation -> Str -> Str -> Str -> Str ->Str -> St
oper add_sya : Voice -> Str -> Str = \v,x -> oper add_sya : Voice -> Str -> Str = \v,x ->
case v of { case v of {
Act => x ; Act => x ;
Pas => case Predef.dp 2 x of { Pas => case Predef.dp 1 x of {
"а" | "е" | "ё" | "и" | "о" | "у" | "ы" | "э" | "ю" | "я" => x + "сь" ; "а" | "е" | "ё" | "и" | "о" | "у" | "ы" | "э" | "ю" | "я" => x + "сь" ;
_ => x + "ся" _ => x + "ся"
} }