From 25838cc89584dad5b3849ac26108e128a172bcb7 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Fri, 7 Dec 2012 14:27:22 +0000
Subject: [PATCH] added missing adverb to infinitives in Fin and Rus (but
 something is still omitted in Rus)

---
 lib/src/finnish/ResFin.gf  | 2 +-
 lib/src/russian/VerbRus.gf | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/src/finnish/ResFin.gf b/lib/src/finnish/ResFin.gf
index 04189c673..3b1c23048 100644
--- a/lib/src/finnish/ResFin.gf
+++ b/lib/src/finnish/ResFin.gf
@@ -410,7 +410,7 @@ oper
             _ => False           -- minun täytyy nähdä auto
             } ;
           verb  = vp.s ! VIInf vi ! Simul ! Pos ! agr ; -- no "ei"
-          compl = vp.s2 ! fin ! pol ! agr ++ vp.ext     -- but compl. case propagated
+          compl = vp.s2 ! fin ! pol ! agr ++ vp.adv ! pol ++ vp.ext     -- but compl. case propagated
         in
         verb.fin ++ verb.inf ++ compl ;
 
diff --git a/lib/src/russian/VerbRus.gf b/lib/src/russian/VerbRus.gf
index 00cf4123c..8199c3193 100644
--- a/lib/src/russian/VerbRus.gf
+++ b/lib/src/russian/VerbRus.gf
@@ -332,7 +332,7 @@ concrete VerbRus of Verb = CatRus ** open ResRus, Prelude in {
 
   ComplVV putatsya bezhat =
   { s =  \\clf,gn,p => putatsya.s ! (getActVerbForm clf (genGNum gn) 
-       (numGenNum gn) p) ++ bezhat.s!ClInfinit !gn!p ; 
+       (numGenNum gn) p) ++ bezhat.s!ClInfinit !gn!p ++ bezhat.s2 ; ---- s2 added by AR 7/12/2012 - but where should s3 go? 
       asp = putatsya.asp ;
       w = Act;
       negBefore = True;