mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
fix paradigm mkV188
This commit is contained in:
@@ -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} ;
|
||||||
|
|||||||
Reference in New Issue
Block a user