fix paradigm mkV188

This commit is contained in:
krangelov
2021-03-01 13:04:28 +01:00
parent ee2bfe6014
commit 4b171129a1

View File

@@ -2098,17 +2098,21 @@ oper
(v0+"яй") (v0+"яй")
(v0+"яне") ; (v0+"яне") ;
mkV188 : Str -> VTable ; mkV188 : Str -> VTable ;
mkV188 base = let v0 = tk 2 base mkV188 base = let v0 = tk 2 base;
in mkVerb (v0+"ам") vt = mkVerb base
(v0+"ае") (v0+"ае")
(v0+"ах") (v0+"аех")
(v0+"ах") (v0+"аех")
(v0+"ал") (v0+"ал")
(v0+"ал") (v0+"ал")
(v0+"ан") (v0+"ан")
(v0+"ащ") (v0+"ащ")
(v0+"ай") (v0+"ай")
(v0+"ане") ; (v0+"ане")
in table {
VAorist Sg (P2|P3) => v0+"аеше";
vform => vt ! vform
} ;
adjAdv : A -> Str -> A = adjAdv : A -> Str -> A =
\a,adv -> a ** {adv = adv} ; \a,adv -> a ** {adv = adv} ;