From 953b5a635a89248be2caa4d3d6083a2ccc24af87 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

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

diff --git a/lib/resource-1.0/Makefile b/lib/resource-1.0/Makefile
index f42b2cc59..f27cb7ccf 100644
--- a/lib/resource-1.0/Makefile
+++ b/lib/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/lib/resource-1.0/russian/SentenceRus.gf b/lib/resource-1.0/russian/SentenceRus.gf
index 40cc73efe..b27b496ba 100644
--- a/lib/resource-1.0/russian/SentenceRus.gf
+++ b/lib/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
+
 
 }