finishing TestGerman

This commit is contained in:
aarne
2006-01-13 22:33:15 +00:00
parent f3f346d6d9
commit 1a262ce1f8
10 changed files with 133 additions and 43 deletions

View File

@@ -22,7 +22,8 @@ concrete SentenceGer of Sentence = CatGer ** open ResGer in {
SlashVVV2 np vv v2 =
mkClause (np.s ! Nom) np.a
(insertObj (\\a => vv.part ++ v2.s ! VInf) (predV vv)) **
(insertObj (\\a => v2.prefix ++ infPart vv.isAux ++ v2.s ! VInf)
(predVGen vv.isAux vv)) **
{c2 = v2.c2} ;
AdvSlash slash adv = {