some Slo fixes from Slavomír

2020-05-02 21:07:09 +02:00
parent dbe7264371
commit 8878024901
3 changed files with 5 additions and 4 deletions
@@ -18,6 +18,6 @@ concrete AdjectiveSlo of Adjective = CatSlo ** open ResSlo, Prelude in {

    UseComparA a = adjFormsAdjective a ** {isPost = False} ; ---- TODO: this gives positive forms 

-    AdvAP ap adv = ap ** {s = \\g,n,c => ap.s ! g ! n ! c ++ adv.s} ;
+    AdvAP ap adv = ap ** {s = \\g,n,c => ap.s ! g ! n ! c ++ adv.s ; isPost = True} ;

 }