(Kor) Add Style as a variable up to S. Utt chooses Polite.

If different politeness levels are wanted in applications, UttS can be overriden.
2020-05-21 14:52:54 +02:00
1 parent ef364c295f
commit 8acf0da717
@@ -361,7 +361,7 @@ oper
           let vf = case cltyp of {
                      Subord   => VAttr p ;
                      WithConj => VStem p ;
-                      _        => VF Polite p } -- TODO: more tenses, politeness
+                      Statement st => VF st p } -- TODO: more tenses
            in np
            ++ vp.nObj -- an object, not copula complement
            ++ vp.adv