From 660644fcf5cf41f45829ff99c64908ec0a0b160a Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Mon, 8 May 2006 16:57:24 +0000
Subject: [PATCH] english infVP bugfixed ; LangRus made compilable

---
 lib/resource-1.0/english/ResEng.gf  |  2 +-
 lib/resource-1.0/russian/LangRus.gf | 28 ++++++++++++++--------------
 2 files changed, 15 insertions(+), 15 deletions(-)

diff --git a/lib/resource-1.0/english/ResEng.gf b/lib/resource-1.0/english/ResEng.gf
index 341db3641..44a1b4e95 100644
--- a/lib/resource-1.0/english/ResEng.gf
+++ b/lib/resource-1.0/english/ResEng.gf
@@ -293,7 +293,7 @@ resource ResEng = ParamX ** open Prelude in {
     agrVerb (verb.s ! VPres) (verb.s ! VInf) ;
 
   infVP : Bool -> VP -> Agr -> Str = \isAux,vp,a ->
-    if_then_Str isAux [] "to" ++ 
+    vp.ad ++ if_then_Str isAux [] "to" ++ 
     vp.inf ++ vp.s2 ! a ;
 
   agrVerb : Str -> Str -> Agr -> Str = \has,have,agr -> 
diff --git a/lib/resource-1.0/russian/LangRus.gf b/lib/resource-1.0/russian/LangRus.gf
index 65bd225fb..058daf51f 100644
--- a/lib/resource-1.0/russian/LangRus.gf
+++ b/lib/resource-1.0/russian/LangRus.gf
@@ -2,20 +2,20 @@
 
 
 concrete LangRus of Lang = 
-  NounRus, 
-  VerbRus, 
-  AdjectiveRus,
-  AdverbRus,
-  NumeralRus,
-  SentenceRus,
-  QuestionRus,
-  RelativeRus,
-  ConjunctionRus,
-  PhraseRus,
-  TextX,
-  StructuralRus,
-  IdiomRus,
-  LexiconRus
+--  NounRus, 
+--  VerbRus, 
+--  AdjectiveRus,
+--  AdverbRus,
+--  NumeralRus,
+--  SentenceRus,
+--  QuestionRus,
+--  RelativeRus,
+--  ConjunctionRus,
+--  PhraseRus,
+--  TextX,
+--  StructuralRus,
+--  IdiomRus,
+--  LexiconRus
   ** {
 
 flags startcat = Phr ; unlexer = text ; lexer = text ;