added UseCopula to Fin,Ger,romance since needed in YAQL

This commit is contained in:
aarne
2012-11-13 09:48:26 +00:00
parent e8c0ae67f4
commit 9c07e219a5
3 changed files with 5 additions and 0 deletions

View File

@@ -73,6 +73,8 @@ incomplete concrete VerbRomance of Verb =
UseComp comp = insertComplement comp.s (predV copula) ;
UseCopula = predV copula ;
CompAP ap = {s = \\ag => let agr = complAgr ag in ap.s ! AF agr.g agr.n} ;
CompCN cn = { s = \\ag =>
let agr = complAgr ag in