From 0a05bbea4fd5d0300ea3ecfc19c6d429490dd6e3 Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 5 Jul 2007 19:53:23 +0000 Subject: [PATCH] Hans Leiss' fix in Russian mkpresent --- lib/resource-1.0/russian/SentenceRus.gf | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/resource-1.0/russian/SentenceRus.gf b/lib/resource-1.0/russian/SentenceRus.gf index b27b496ba..d31254a64 100644 --- a/lib/resource-1.0/russian/SentenceRus.gf +++ b/lib/resource-1.0/russian/SentenceRus.gf @@ -72,15 +72,15 @@ concrete SentenceRus of Sentence = CatRus ** open Prelude, ResRus in { EmbedVP vp = {s = vp.s2 ++ vp.s!ClInfinit!(ASg Masc) !P3 ++ vp.s3!Masc!Sg} ; UseCl t a p cl = {s = case t.t of { - Cond => cl.s! p.p ! ClCondit ; + Cond => cl.s! p.p ! ClCondit ; --# notpresent _ => cl.s! p.p ! ClIndic (getTense t.t) a.a}}; UseQCl t a p qcl= {s = case t.t of { - Cond => qcl.s! p.p ! ClCondit ; + Cond => qcl.s! p.p ! ClCondit ; --# notpresent _ => qcl.s!p.p! ClIndic (getTense t.t) a.a }}; UseRCl t a p rcl ={s = \\gn,c,anim => case t.t of { - Cond => [", "] ++ rcl.s! p.p ! ClCondit ! gn !c !anim ; + Cond => [", "] ++ rcl.s! p.p ! ClCondit ! gn !c !anim ; --# notpresent _ => [", "] ++ rcl.s! p.p ! ClIndic (getTense t.t) a.a !gn !c !anim}}; AdvS a s = {s = a.s ++ "," ++ s.s} ; ---- AR 19/6/2007