AnimalsFre now works

This commit is contained in:
aarne
2005-02-20 07:57:47 +00:00
parent 95adb717e2
commit 6dc5c19c9e
5 changed files with 53 additions and 13 deletions

View File

@@ -1071,10 +1071,12 @@ oper
-- N.B. inversion variants and "est-ce que" are treated as above.
intVerbPhrase : IntPron -> VerbGroup -> Question = \ip,vg ->
questClause (predVerbGroupClause (ip ** {p = P3 ; c = Clit0}) vg) ;
questClause (predVerbGroupClause (intNounPhrase ip) vg) ;
intSlash : IntPron -> ClauseSlashNounPhrase -> Question ;
intNounPhrase : IntPron -> NounPhrase = \ip ->
{s = \\nf => ip.s ! pform2case nf ; g = PGen ip.g ; n = ip.n ; p = P3 ; c = Clit0} ;
--3 Interrogative adverbials
--