GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 08:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

trying to find some inefficiencies in Finnish resource

Browse Source
This commit is contained in:
aarne
2010-10-25 19:56:47 +00:00
parent cd0a9982bd
commit e745881e4a
6 changed files with 32 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -69,7 +69,8 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin in {
SlashV2VNP v np vp =
insertObj
(\\fin,b,a => appCompl fin b v.c2 np ++ infVP v.sc b a vp v.vi)
(\\fin,b,a => appCompl True b v.c2 np ++ ---- fin -> stack overflow
infVP v.sc b a vp v.vi)
(predV v) ** {c2 = vp.c2} ;
AdvVP vp adv = insertObj (\\_,_,_ => adv.s) vp ;