forked from GitHub/gf-core
testgf3 in progress; fixed VP type in ExtraEng
This commit is contained in:
@@ -35,7 +35,6 @@ concrete CatEng of Cat = CommonX ** open ResEng, Prelude in {
|
||||
-- Verb
|
||||
|
||||
VP = ResEng.VP ;
|
||||
|
||||
Comp = {s : Agr => Str} ;
|
||||
|
||||
-- Adjective
|
||||
|
||||
@@ -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 =
|
||||
|
||||
Reference in New Issue
Block a user