From 27ca6e5cfc7ab1e081e516fe1c083a78fc78e873 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Thu, 13 Dec 2007 16:36:32 +0000
Subject: [PATCH] lisp-like GFCC syntax; doesn't quite work yet in gf3

---
 resource/Makefile          | 7 +++++++
 resource/russian/ResRus.gf | 2 +-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/resource/Makefile b/resource/Makefile
index 03b923ceb..54f56d73d 100644
--- a/resource/Makefile
+++ b/resource/Makefile
@@ -207,6 +207,13 @@ gf3present:
 #	mv api/toplevel/Over*.gfc api/Try*.gf? ../present
 
 
+gf3langs:
+	mv ../present/LangSpa.gfo tmpLangSpa.gfo
+	$(GFNew) -path=present:prelude -target=langs --make ../present/Lang???.gfo $(RTSS)
+	mv langs.gfcc ../present
+	mv tmpLangSpa.gfo ../present/LangSpa.gfo 
+
+
 clean:
 	-rm -f */*.gfc */*.gfr */*.gf~ ../*/*.gfc ../*/*.gfr ../*/*.gf~ ../*/langs.gfcm ../compiled.tgz
 
diff --git a/resource/russian/ResRus.gf b/resource/russian/ResRus.gf
index 7a901a597..ee5990fe5 100644
--- a/resource/russian/ResRus.gf
+++ b/resource/russian/ResRus.gf
@@ -104,7 +104,7 @@ param  PronGen = PGen Gender | PNoGen ;
 oper
   pgen2gen : PronGen -> Gender = \p -> case p of {
     PGen g => g ;
-    PNoGen => variants {Masc ; Fem} --- the best we can do for ya, tu
+    PNoGen => Masc ---- variants {Masc ; Fem} --- the best we can do for ya, tu
     } ;