Predic works

This commit is contained in:
aarne
2005-09-02 13:49:02 +00:00
parent 1cce995197
commit a7732f2475
3 changed files with 9 additions and 25 deletions

View File

@@ -2,7 +2,7 @@
--# -opt
concrete ClauseEng of Clause = CategoriesEng **
---- ClausePredI with (Predic = PredicEng) ;
---- ClausePredI with (Predic = PredicEng) ; {-
open Prelude, SyntaxEng in {
@@ -98,19 +98,3 @@ concrete ClauseEng of Clause = CategoriesEng **
IPredProgVP vp = predBeGroupI (vp.s ! VIPresPart) ;
}
{-
-- Use VPs
PredVP = predVerbGroupClause ;
IntVP = intVerbPhrase ;
RelVP = relVerbPhrase ;
PosVP tp = predVerbGroup True tp.a ;
NegVP tp = predVerbGroup False tp.a ;
AdvVP = adVerbPhrase ;
SubjVP = subjunctVerbPhrase ;
-}