mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-29 22:42:52 -06:00
temporary hacks in VerbBul and StructuralBul to compile YAQL - please fix
This commit is contained in:
@@ -72,6 +72,8 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
|
||||
|
||||
UseComp comp = insertObj comp.s (predV verbBe) ;
|
||||
|
||||
UseCopula = predV verbBe ;
|
||||
|
||||
AdvVP vp adv = insertObj (\\_ => adv.s) vp ;
|
||||
AdvVPSlash vp adv = insertSlashObj1 (\\_ => adv.s) vp ;
|
||||
|
||||
@@ -96,4 +98,6 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
|
||||
CompAdv a = {s = \\_ => a.s} ;
|
||||
CompCN cn = {s = \\agr => cn.s ! (NF (numGenNum agr.gn) Indef)} ;
|
||||
|
||||
VPSlashPrep vp prep = vp ** {c2 = prep ; compl1,compl2 = \\_ => []} ; ---- AR
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user