added simple tenses

2026-07-01 03:28:34 -06:00 · 2019-09-03 21:37:14 +02:00
parent 026ecba0e7
commit b53ac90c3c
7 changed files with 22 additions and 21 deletions
@@ -8,6 +8,6 @@ concrete SentenceTur of Sentence = CatTur ** open Prelude, ResTur in {
    EmbedVP vp = {s = (vp.s ! Gerund Sg Acc)} ;

    -- TODO: rudimentary implementation; revise this.
-    UseCl temp pol cl = {s = cl.s} ;
+    UseCl temp pol cl = {s = temp.s ++ cl.s ! temp.t; subord=cl.subord} ;

 }