added simple tenses

2019-09-03 21:37:14 +02:00
parent 026ecba0e7
commit b53ac90c3c
7 changed files with 22 additions and 21 deletions
@@ -15,8 +15,8 @@ concrete AdverbTur of Adverb = CatTur ** open ResTur, Prelude in {

    -- TODO: inflect the subject to genitive.
    ComparAdvAdjS cadv a s = {
-      s = s.s ! SubordSuffixDik ++ cadv.s ++ a.s ! Sg ! Nom
+      s = s.subord ++ cadv.s ++ a.s ! Sg ! Nom
    } ;

-    SubjS s1 s2 = {s = s1.s ++ s2.s ! SubordSuffixDik} ;
+    SubjS s1 s2 = {s = s1.s ++ s2.subord} ;
 }