fixed imperative prefix

2026-06-30 11:08:35 -06:00 · 2022-05-10 08:21:22 +02:00
parent 8b05843585
commit f58d0358cc
2 changed files with 31 additions and 27 deletions
@@ -1204,6 +1204,11 @@ resource ResZul = open Prelude,Predef,ParamX in {
    --     FutTense => subjConcLookup ! agr ! SC ++BIND++ "zobe"
    --   } ;

+    impPref : Polarity -> Str = \pol -> case pol of {
+      Pos => [] ;
+      Neg => "u" ++BIND++ "nga"
+    } ;
+
    icomp_pref : VForm -> Agr -> Str = \vform,agr ->
    let
      neg1 = icompNeg1 vform ;