fixed agreement to deal with Gender in exper/english

This commit is contained in:
aarne
2008-04-22 11:00:52 +00:00
parent 7e29773e50
commit b286c625a4
10 changed files with 83 additions and 60 deletions

View File

@@ -11,7 +11,7 @@ concrete SentenceEng of Sentence = CatEng ** open Prelude, ResEng in {
ImpVP vp = {
s = \\pol,n =>
let
agr = {n = numImp n ; p = P2 ; g = Masc} ;
agr = AgP2 (numImp n) ;
verb = infVP True vp agr ;
dont = case pol of {
CNeg True => "don't" ;