diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-10-03 20:42:09 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-10-03 20:42:09 +0000 |
| commit | 24207d40e9cb56173de22d9a424975f0da0bc416 (patch) | |
| tree | 2c221dc4e6f9f7a4d665fe118e0cda12d3ea7290 /next-lib/src/finnish/VerbFin.gf | |
| parent | 27de3c0e7b13a4674cf5829ccbb00b118e916ae8 (diff) | |
extended AP with Ord and compar in 1.5
Diffstat (limited to 'next-lib/src/finnish/VerbFin.gf')
| -rw-r--r-- | next-lib/src/finnish/VerbFin.gf | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/next-lib/src/finnish/VerbFin.gf b/next-lib/src/finnish/VerbFin.gf index 0e6498a0b..7b9c36b4a 100644 --- a/next-lib/src/finnish/VerbFin.gf +++ b/next-lib/src/finnish/VerbFin.gf @@ -33,7 +33,7 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin in { ComplVA v ap = insertObj (\\_,b,agr => - ap.s ! False ! AN (NCase agr.n (npform2case agr.n v.c2.c))) --- v.cs.s ignored + ap.s ! False ! (NCase agr.n (npform2case agr.n v.c2.c))) --- v.cs.s ignored (predV v) ; SlashV2S v s = @@ -46,7 +46,7 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin in { SlashV2A v ap = insertObj (\\fin,b,_ => - ap.s ! False ! AN (NCase Sg (npform2case Sg v.c3.c))) ----agr to obj + ap.s ! False ! (NCase Sg (npform2case Sg v.c3.c))) ----agr to obj (predV v) ** {c2 = v.c2} ; ComplSlash vp np = insertObj (\\fin,b,_ => appCompl fin b vp.c2 np) vp ; @@ -95,7 +95,7 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin in { Sg => Nom ; -- minä olen iso Pl => Part -- me olemme isoja } --- definiteness of NP ? - in ap.s ! False ! AN (NCase agr.n c) + in ap.s ! False ! (NCase agr.n c) } ; CompNP np = {s = \\_ => np.s ! NPCase Nom} ; CompAdv a = {s = \\_ => a.s} ; |