From 3d39875aba091b295bcec5e7d2a39dc98a8ef96e Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Thu, 24 Mar 2016 20:48:47 +0000
Subject: [PATCH] mkAdv in Slovenian

---
 src/slovenian/CatSlv.gf       | 2 +-
 src/slovenian/ParadigmsSlv.gf | 4 +++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/slovenian/CatSlv.gf b/src/slovenian/CatSlv.gf
index c99f3b02c..e193829e8 100644
--- a/src/slovenian/CatSlv.gf
+++ b/src/slovenian/CatSlv.gf
@@ -1,4 +1,4 @@
-concrete CatSlv of Cat = open ResSlv in {
+concrete CatSlv of Cat = CommonX ** open ResSlv in {
 
 lincat
   -- Adjective
diff --git a/src/slovenian/ParadigmsSlv.gf b/src/slovenian/ParadigmsSlv.gf
index 49dab964d..add86e549 100644
--- a/src/slovenian/ParadigmsSlv.gf
+++ b/src/slovenian/ParadigmsSlv.gf
@@ -1,4 +1,4 @@
-resource ParadigmsSlv = open CatSlv, ResSlv in {
+resource ParadigmsSlv = open CatSlv, ResSlv, Prelude in {
 
 oper
   nominative : Case = Nom ;
@@ -272,4 +272,6 @@ oper
            }
     };
 
+  mkAdv : Str -> Adv = \s -> lin Adv {s=s} ;
+
 }