have_V2 in Structural

2009-04-27 13:28:47 +00:00
parent 2a235f9709
commit 06c0b57ed1
23 changed files with 22 additions and 17 deletions
--- a/next-lib/src/interlingua/StructuralIna.gf
+++ b/next-lib/src/interlingua/StructuralIna.gf
@@ -104,6 +104,7 @@ concrete StructuralIna of Structural = CatIna **
    youPl_Pron = mkPron "vos" "vos" "vostre" Pp2;
    youPol_Pron = mkPron "vos" "vos" "vostre" Pp2;

+    have_V2 = dirV2 (R.haberV ** {lock_V = <>});

 oper
  mkQuant : Str -> Str -> {s : Number => Case => Str} = \x,y -> {