allow VV verbs to control the aspect of the governed verb

2026-06-25 02:56:28 -06:00 · 2018-06-10 08:21:00 +02:00
parent 561bf721d1
commit 317fdfbeaa
5 changed files with 11 additions and 7 deletions
@@ -18,8 +18,8 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {

    ComplVV vv vp =
      insertObj (case vv.typ of {
-                   VVInf => daComplex Simul Pos vp ! Perf;
-                   VVGerund => gerund vp ! Imperf
+                   VVInf asp => daComplex Simul Pos vp ! asp;
+                   VVGerund  => gerund vp ! Imperf
                 }) vp.p
                (predV vv) ;