clean-up after Fin infinitives

This commit is contained in:
Aarne Ranta
2023-08-16 16:05:28 +03:00
parent 31b025bdf1
commit 146bc71a06
2 changed files with 8 additions and 6 deletions

View File

@@ -79,6 +79,7 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin, StemFin in {
) ** {c2 = vp.c2} ; ---- correct ?? ) ** {c2 = vp.c2} ; ---- correct ??
-} -}
----
SlashV2VNP = StemFin.slashV2VNP ; ---- compilation to pgf takes too long 6/8/2013 hence a simplified version in stemmed/ SlashV2VNP = StemFin.slashV2VNP ; ---- compilation to pgf takes too long 6/8/2013 hence a simplified version in stemmed/
AdvVP vp adv = insertAdv (\\_ => adv.s) vp ; AdvVP vp adv = insertAdv (\\_ => adv.s) vp ;

View File

@@ -4,7 +4,9 @@ abstract Infinitive =
Lexicon Lexicon
** { ** {
fun flags startcat = Utt ;
data
PresPartPassSubjVP : VP -> VP ; -- (minun) on mentävä PresPartPassSubjVP : VP -> VP ; -- (minun) on mentävä
PresPartPassObjVP : VPSlash -> VP ; -- (oluesta) on pidettävä PresPartPassObjVP : VPSlash -> VP ; -- (oluesta) on pidettävä
@@ -54,5 +56,4 @@ fun
} }