fixed imperative prefix (2)

This commit is contained in:
Laurette Marais
2022-05-10 08:56:22 +02:00
parent f58d0358cc
commit 86fca40ac2

View File

@@ -1206,7 +1206,7 @@ resource ResZul = open Prelude,Predef,ParamX in {
impPref : Polarity -> Str = \pol -> case pol of {
Pos => [] ;
Neg => "u" ++BIND++ "nga"
Neg => "u" ++BIND++ "nga" ++BIND
} ;
icomp_pref : VForm -> Agr -> Str = \vform,agr ->