From 937892fe626ea6251640f2e1076819a146e8a93e Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 22 Feb 2008 14:16:33 +0000
Subject: [PATCH] testgf3 in progress; fixed VP type in ExtraEng

---
 resource/english/CatEng.gf   | 1 -
 resource/english/ExtraEng.gf | 2 +-
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/resource/english/CatEng.gf b/resource/english/CatEng.gf
index 2a8e948c..384cabe6 100644
--- a/resource/english/CatEng.gf
+++ b/resource/english/CatEng.gf
@@ -35,7 +35,6 @@ concrete CatEng of Cat = CommonX ** open ResEng, Prelude in {
 -- Verb
 
     VP = ResEng.VP ;
-
     Comp = {s : Agr => Str} ; 
 
 -- Adjective
diff --git a/resource/english/ExtraEng.gf b/resource/english/ExtraEng.gf
index a8904ec8..ab7682a9 100644
--- a/resource/english/ExtraEng.gf
+++ b/resource/english/ExtraEng.gf
@@ -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 =