place verb particle after negation in Scandinavian

This commit is contained in:
aarne
2016-05-10 17:49:14 +00:00
parent 82a0634103
commit 49924883f9
2 changed files with 4 additions and 4 deletions

View File

@@ -302,8 +302,8 @@ oper
insertObjPron : Bool -> (Agr => Str) -> VP -> VP = \isPron,obj,vp -> vp ** {
n1 = \\a => if_then_Str isPron (obj ! a ++ vp.n2 ! a) [] ;
n2 = \\a => if_then_Str isPron [] (obj ! a ++ vp.n2 ! a) ;
n1 = \\a => vp.n1 ! a ++ if_then_Str isPron (obj ! a) [] ;
n2 = \\a => vp.n2 ! a ++ if_then_Str isPron [] (obj ! a) ;
en2 = notB isPron ;
} ;