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 -- Verb
VP = ResEng.VP ; VP = ResEng.VP ;
Comp = {s : Agr => Str} ; Comp = {s : Agr => Str} ;
-- Adjective -- Adjective

View File

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