simplified Romance VP and fixed some bugs

This commit is contained in:
aarne
2009-08-20 21:08:22 +00:00
parent eab322e51e
commit add4702320
12 changed files with 47 additions and 89 deletions

View File

@@ -8,7 +8,7 @@ incomplete concrete SentenceRomance of Sentence =
PredSCVP sc vp = mkClause sc.s False (agrP3 Masc Sg) vp ;
ImpVP vpr = let vp = useVP vpr in {
ImpVP vp = {
s = \\p,i,g => case i of {
ImpF n b => (mkImperative b P2 vp).s ! p ! (aagr g n)
}