mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-10-31 19:03:20 -06:00
trying to find some inefficiencies in Finnish resource
This commit is contained in:
1 parent
dfaefd7e5c
commit
eb2f903ade
2 files changed
+17
-1
No files matched your search
@@ -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 ;
|
||||
|
||||
Reference in new issue
Block a user