1
0
forked from GitHub/gf-core

more work on Finnish ClausePlus

This commit is contained in:
aarne
2011-02-08 19:27:35 +00:00
parent 438f267e7e
commit c2d382746e
10 changed files with 37 additions and 27 deletions

View File

@@ -578,7 +578,7 @@ oper
caseV c v = {s = v.s ; sc = NPCase c ; qp = v.qp ; lock_V = <>} ;
vOlla = verbOlla ** {sc = NPCase Nom ; qp = "ko" ; lock_V = <>} ; ---- lieneekö
vOlla = verbOlla ** {sc = NPCase Nom ; qp = True ; lock_V = <>} ; ---- lieneekö
mk2V2 : V -> Prep -> V2 = \v,c -> v ** {c2 = c ; lock_V2 = <>} ;
caseV2 : V -> Case -> V2 = \v,c -> mk2V2 v (casePrep c) ;