From c160ad0110782566881424b390f36ba0886aae03 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Wed, 15 Jun 2016 11:11:18 +0000
Subject: [PATCH] added AdAP in Slovenian

---
 lib/src/slovenian/AdjectiveSlv.gf | 4 ++++
 lib/src/slovenian/ParadigmsSlv.gf | 2 ++
 2 files changed, 6 insertions(+)

diff --git a/lib/src/slovenian/AdjectiveSlv.gf b/lib/src/slovenian/AdjectiveSlv.gf
index e455e6c6e..b42b77e10 100644
--- a/lib/src/slovenian/AdjectiveSlv.gf
+++ b/lib/src/slovenian/AdjectiveSlv.gf
@@ -17,5 +17,9 @@ concrete AdjectiveSlv of Adjective = CatSlv ** open ResSlv in {
         }
       } ;
 
+    AdAP ada ap = {
+      s = \\spec,g,c,n => ada.s ++ ap.s ! spec ! g ! c ! n
+      } ;
+
     AdvAP ap adv = {s = \\spec,g,c,n => ap.s ! spec ! g ! c ! n ++ adv.s} ;
 }
diff --git a/lib/src/slovenian/ParadigmsSlv.gf b/lib/src/slovenian/ParadigmsSlv.gf
index 3e686b7d0..a9a1bd066 100644
--- a/lib/src/slovenian/ParadigmsSlv.gf
+++ b/lib/src/slovenian/ParadigmsSlv.gf
@@ -287,6 +287,8 @@ oper
 
   mkAdV : Str -> AdV = \s -> lin AdV {s=s} ;
 
+  mkAdA : Str -> AdA = \s -> lin AdA {s=s} ;
+
   mkPron : (_,_,_,_,_,_,_ : Str) -> Gender -> Number -> Person -> Pron =
     \nom,acc,gen,dat,loc,instr,poss,g,n,p ->
     lin Pron {s = table {