msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

testgf3 in progress; fixed VP type in ExtraEng

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

1
resource/english/CatEng.gf
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

2
resource/english/ExtraEng.gf
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 =