imperatives in Slovenian

This commit is contained in:
krasimir
2016-05-06 08:29:25 +00:00
parent ca3f218122
commit ead812e2b0
5 changed files with 26 additions and 12 deletions

View File

@@ -1,9 +1,16 @@
concrete VerbSlv of Verb = CatSlv ** open ResSlv, Prelude in {
lin
UseV v = predV v.s ;
UseV v =
{ s = v.s ;
s2 = \\a => ""
} ;
SlashV2a v = predV v.s ** {c2 = v.c2} ;
SlashV2a v =
{ s = v.s ;
s2 = \\a => "" ;
c2 = v.c2
} ;
ComplSlash vp np =
insertObj (\\_ => vp.c2.s ++ np.s ! vp.c2.c) vp ;