1
0
forked from GitHub/gf-core

Tense to Common ; Idiom ; Text

This commit is contained in:
aarne
2006-02-20 22:11:57 +00:00
parent b6957f4e41
commit e0dc7034ac
39 changed files with 255 additions and 61 deletions

View File

@@ -35,7 +35,7 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin in {
ComplV2A v np ap =
insertObj
(\\fin,b,_ => appCompl fin b v.c2 np ++
ap.s ! False ! AN (NCase np.a.n (npform2case v.c2.c))) --agr to obj
ap.s ! False ! AN (NCase np.a.n (npform2case v.c3.c))) --agr to obj
(predV v) ;
UseComp comp =