1
0
forked from GitHub/gf-core

corrected the treatment of passives in Fin

This commit is contained in:
aarne
2013-12-08 14:58:29 +00:00
parent 30df21ffd8
commit a91add2bbb
7 changed files with 90 additions and 75 deletions

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 ;