From b6552c4bf7af9c96896ab52326735070f37b6715 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Wed, 15 Jun 2016 10:21:57 +0000
Subject: [PATCH] UseComparA in Slovenian

---
 lib/src/slovenian/AdjectiveSlv.gf | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lib/src/slovenian/AdjectiveSlv.gf b/lib/src/slovenian/AdjectiveSlv.gf
index 966ed3e3b..e455e6c6e 100644
--- a/lib/src/slovenian/AdjectiveSlv.gf
+++ b/lib/src/slovenian/AdjectiveSlv.gf
@@ -9,6 +9,13 @@ concrete AdjectiveSlv of Adjective = CatSlv ** open ResSlv in {
           _                 => a.s ! APosit g n c
         }
       } ;
+    UseComparA a = {
+      s = \\spec,g,c,n => 
+        case <spec,g,n,c> of {
+          <Def,Masc,Sg,Acc> => a.s ! AComparDefAcc ;
+          _                 => a.s ! ACompar g n c
+        }
+      } ;
 
     AdvAP ap adv = {s = \\spec,g,c,n => ap.s ! spec ! g ! c ! n ++ adv.s} ;
 }