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 ;