msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

uncomment a VerbFin function left commented by mistake

Browse Source
This commit is contained in:
aarne
2013-03-15 17:40:28 +00:00
parent 23a310be57
commit ff879641c8
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/src/finnish/VerbFin.gf
View File

@@ -68,13 +68,13 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin in {
qp = v.qp ; p = v.p qp = v.qp ; p = v.p
} }
) ** {c2 = vp.c2} ; ---- correct ?? ) ** {c2 = vp.c2} ; ---- correct ??
{----
SlashV2VNP v np vp = SlashV2VNP v np vp =
insertObjPre np.isNeg insertObjPre np.isNeg
(\\fin,b,a => appCompl True b v.c2 np ++ ---- fin -> stack overflow (\\fin,b,a => appCompl True b v.c2 np ++ ---- fin -> stack overflow
infVP v.sc b a vp v.vi) infVP v.sc b a vp v.vi)
(predV v) ** {c2 = vp.c2} ; (predV v) ** {c2 = vp.c2} ;
----}
AdvVP vp adv = insertAdv (\\_ => adv.s) vp ; AdvVP vp adv = insertAdv (\\_ => adv.s) vp ;
AdVVP adv vp = insertAdv (\\_ => adv.s) vp ; AdVVP adv vp = insertAdv (\\_ => adv.s) vp ;

2
lib/src/finnish/stemmed/DictEngFin.gf
View File

@@ -2755,7 +2755,7 @@ lin
-- colour_blind_A = "värisokea" ; -- 20000 -- colour_blind_A = "värisokea" ; -- 20000
-- colour_wash_N = "+?" ; -- 40000 -- colour_wash_N = "+?" ; -- 40000
-- colouring_N = "kaunistella" ; -- 20000 -- colouring_N = "kaunistella" ; -- 20000
-- colourless_A = "väritön" ; -- 20000 colourless_A = mkA "väritön" ; -- 20000
-- comatose_A = "tajuton" ; -- 20000 -- comatose_A = "tajuton" ; -- 20000
-- combatant_A = "taistelija" ; -- 20000 -- combatant_A = "taistelija" ; -- 20000
-- combative_A = "taistelunhaluinen" ; -- 20000 -- combative_A = "taistelunhaluinen" ; -- 20000