temporary hacks in VerbBul and StructuralBul to compile YAQL - please fix

This commit is contained in:
aarne
2012-11-15 20:41:25 +00:00
parent 5a920eea11
commit 82ae797d86
2 changed files with 5 additions and 0 deletions

View File

@@ -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
}