testgf3 in progress; fixed VP type in ExtraEng

This commit is contained in:
aarne
2008-02-22 14:16:33 +00:00
parent 69c232e487
commit 937892fe62
2 changed files with 1 additions and 2 deletions

View File

@@ -35,7 +35,6 @@ concrete CatEng of Cat = CommonX ** open ResEng, Prelude in {
-- Verb
VP = ResEng.VP ;
Comp = {s : Agr => Str} ;
-- Adjective

View File

@@ -28,7 +28,7 @@ concrete ExtraEng of ExtraEngAbs = CatEng **
ConsVPI = consrTable2 VPIForm Agr comma ;
MkVPI vp = {
s = \\v,a => vp.ad ++ vp.inf ++ vp.s2 ! a
s = \\v,a => vp.inf ++ vp.s2 ! a
} ;
ConjVPI = conjunctTable2 VPIForm Agr ;
ComplVPIVV vv vpi =