mkAdv in Slovenian

2016-03-24 20:48:47 +00:00
parent 5a6c55f3ab
commit 3d39875aba
2 changed files with 4 additions and 2 deletions
--- 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
--- 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} ;
+
 }