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

2012-11-13 09:48:26 +00:00
parent 08ee662944
commit 4d34018abb
3 changed files with 5 additions and 0 deletions
--- a/lib/src/finnish/VerbFin.gf
+++ b/lib/src/finnish/VerbFin.gf
@@ -55,6 +55,8 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin in {
    UseComp comp = 
      insertObj (\\_,_ => comp.s) (predV (verbOlla ** {sc = NPCase Nom ; qp = True})) ;

+    UseCopula = predV (verbOlla ** {sc = NPCase Nom ; qp = True}) ;
+
    SlashVV v vp = 
      insertObj 
        (\\_,b,a => infVP v.sc b a vp v.vi)