bugfix in make of incomplete

This commit is contained in:
aarne
2005-02-11 11:06:47 +00:00
parent aa4a8580f7
commit a38ee961b5
10 changed files with 35 additions and 238 deletions

View File

@@ -61,6 +61,7 @@ lincat
V3 = TransVerb ** {s3 : Preposition ; c3 : CaseA} ;
VS = Verb ** {mp,mn : Mode} ;
VV = Verb ** {c : CaseA} ;
VQ = Verb ;
VA = Verb ;
V2S = TransVerb ;

View File

@@ -769,6 +769,14 @@ oper
----- let m = if_then_else Mode b croire.mp croire.mn
embedConj ++ jeanboit.s ! croire.mp) ;
complQuestVerb : Verb -> Question -> Complemnt = \demander,sijeanboit ->
mkCompl
demander
(\\g,n,p => sijeanboit.s ! IndirQ) ;
complAdjVerb : Verb -> AdjPhrase -> Complemnt = \sent,bon ->
mkCompl sent (\\g,n,_ => bon.s ! AF g n) ;
verbSent : Verb -> Mode -> Mode -> SentenceVerb = \v,mp,mn ->
v ** {mp = mp ; mn = mn} ;