diff --git a/lib/src/finnish/ExtraFin.gf b/lib/src/finnish/ExtraFin.gf index 1771f88cc..8c4fbbd89 100644 --- a/lib/src/finnish/ExtraFin.gf +++ b/lib/src/finnish/ExtraFin.gf @@ -149,6 +149,13 @@ x in {s = t.s ++ p.s ++ cl.adv ++ pa ++ cl.subj ++ cl.fin ++ cl.inf ++ cl.compl ++ cl.ext} ; + S_OVS part t p clp = + let + cl = clp.s ! t.t ! t.a ! p.p ; + pa = part.s ! True ---- + in + {s = t.s ++ p.s ++ cl.compl ++ pa ++ cl.fin ++ cl.inf ++ cl.subj ++ cl.adv ++ cl.ext} ; + PredClPlus np vp = mkClausePlus (subjForm np vp.sc) np.a vp ; PredClPlusFocSubj np vp = insertKinClausePlus 0 (mkClausePlus (subjForm np vp.sc) np.a vp) ; PredClPlusFocVerb np vp = insertKinClausePlus 1 (mkClausePlus (subjForm np vp.sc) np.a vp) ; diff --git a/lib/src/finnish/ExtraFinAbs.gf b/lib/src/finnish/ExtraFinAbs.gf index d9f04323a..bb970cc45 100644 --- a/lib/src/finnish/ExtraFinAbs.gf +++ b/lib/src/finnish/ExtraFinAbs.gf @@ -37,7 +37,7 @@ abstract ExtraFinAbs = Extra [ S_ASV : Part -> Temp -> Pol -> ClPlusAdv -> S ; -- nytpäs me juomme maitoa -- S_SOV : Part -> Temp -> Pol -> ClPlus -> S ; -- mepäs maitoa juomme --- S_OVS : Part -> Temp -> Pol -> ClPlus -> S ; -- maitoapas juomme me + S_OVS : Part -> Temp -> Pol -> ClPlus -> S ; -- maitoapas juomme me -- S_VOS : Part -> Temp -> Pol -> ClPlus -> S ; -- juommepas maitoa me