Gender in English Agr

This commit is contained in:
aarne
2008-04-21 15:56:50 +00:00
parent 65f8120498
commit 7e29773e50
11 changed files with 68 additions and 40 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} ;
agr = {n = numImp n ; p = P2 ; g = Masc} ;
verb = infVP True vp agr ;
dont = case pol of {
CNeg True => "don't" ;