transitive verbs in Slovenian

2016-05-03 13:47:14 +00:00
parent fd125cb45e
commit dcd01150a2
4 changed files with 22 additions and 6 deletions
@@ -3,4 +3,9 @@ concrete VerbSlv of Verb = CatSlv ** open ResSlv, Prelude in {
  lin
    UseV v = predV v.s ;

+    SlashV2a v = predV v.s ** {c2 = v.c2} ;
+
+    ComplSlash vp np =
+      insertObj (\\_ => vp.c2.s ++ np.s ! vp.c2.c) vp ;
+
 }