From 5182cb5553985d387cee442c779319fa22462544 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 19 Jun 2007 07:35:01 +0000
Subject: [PATCH] missing AdvS in Rus added

---
 resource-1.0/Makefile               | 2 ++
 resource-1.0/russian/SentenceRus.gf | 3 +++
 2 files changed, 5 insertions(+)

diff --git a/resource-1.0/Makefile b/resource-1.0/Makefile
index f42b2cc5..f27cb7cc 100644
--- a/resource-1.0/Makefile
+++ b/resource-1.0/Makefile
@@ -12,7 +12,9 @@ GFC=$(GFCC) -src
 
 # comment the first and uncomment the second in Windows
 GFCP=$(GFC) -preproc=./mkPresent
+
 GFCCP=$(GFCC) -preproc=./mkPresent
+
 #GFCP=$(GFC) -preproc=mkPresent
 
 
diff --git a/resource-1.0/russian/SentenceRus.gf b/resource-1.0/russian/SentenceRus.gf
index 40cc73ef..b27b496b 100644
--- a/resource-1.0/russian/SentenceRus.gf
+++ b/resource-1.0/russian/SentenceRus.gf
@@ -82,6 +82,9 @@ concrete SentenceRus of Sentence = CatRus ** open Prelude, ResRus in {
     UseRCl t a p rcl ={s = \\gn,c,anim => case t.t of { 
       Cond => [", "] ++ rcl.s! p.p ! ClCondit ! gn !c !anim ;
       _ => [", "] ++ 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
+
 
 }