(Ara) Fixes in negations

This commit is contained in:
Inari Listenmaa
2018-11-28 13:55:34 +01:00
parent 01c83a8437
commit a7c471214b
3 changed files with 29 additions and 17 deletions
+1 -1
View File
@@ -39,7 +39,7 @@ concrete ExtendAra of Extend =
wordOrderNoSubj
Nominal -- Nominal (=SVO) generalises best for ConjVPS.
vp.obj.a.isPron
(vStr vp pgn t.t p.p)
(vStr vp pgn t.t p.p Nominal)
(case <vp.isPred,vp.obj.a.isPron> of {
<False,True> => BIND ++ vp.obj.s ;
_ => vp.obj.s })