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

@@ -122,7 +122,7 @@ instance DiffFre of DiffRomance = open CommonRomance, PhonoFre, Prelude in {
let
num = if_then_else Number b Pl aag.n ;
agr = {g = aag.g ; n = num ; p = p} ;
verb = (vp.s ! VPImperat).fin ! agr ;
verb = vp.s.s ! vImperForm agr ;
neg = vp.neg ! pol ;
hascl = False ; ----e(pronArg agr.n agr.p vp.clAcc vp.clDat).p3 ;
clpr = <[],[]> ; ----e pronArgGen pol agr.n agr.p vp.clAcc vp.clDat ;