corrected the treatment of passives in Fin

This commit is contained in:
aarne
2013-12-08 14:58:29 +00:00
parent 98f9809a4c
commit e4996502d3
7 changed files with 90 additions and 75 deletions
+1 -1
View File
@@ -5,7 +5,7 @@ concrete SentenceFin of Sentence = CatFin ** open Prelude, ResFin, StemFin in {
lin
PredVP np vp = mkClausePol (orB np.isNeg vp.isNeg) (subjForm np vp.s.sc) np.a vp ;
PredVP np vp = mkClausePol (orB np.isNeg vp.vptyp.isNeg) (subjForm np vp.s.sc) np.a vp ;
PredSCVP sc vp = mkClause (\_ -> sc.s) (agrP3 Sg) vp ;