forked from GitHub/gf-core
AdvVP in Slovenian
This commit is contained in:
@@ -15,4 +15,6 @@ concrete VerbSlv of Verb = CatSlv ** open ResSlv, Prelude in {
|
|||||||
ComplSlash vp np =
|
ComplSlash vp np =
|
||||||
insertObj (\\_ => vp.c2.s ++ np.s ! vp.c2.c) vp ;
|
insertObj (\\_ => vp.c2.s ++ np.s ! vp.c2.c) vp ;
|
||||||
|
|
||||||
|
AdvVP vp adv = insertObj (\\_ => adv.s) vp ;
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user