From c063a439a892a1267e4f0d51140fa395e2733f74 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Mon, 5 Dec 2016 21:47:57 +0000
Subject: [PATCH] added mkA with one argument in Slovenian

---
 src/slovenian/ParadigmsSlv.gf | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/slovenian/ParadigmsSlv.gf b/src/slovenian/ParadigmsSlv.gf
index bfd16650b..b8817a786 100644
--- a/src/slovenian/ParadigmsSlv.gf
+++ b/src/slovenian/ParadigmsSlv.gf
@@ -282,7 +282,8 @@ oper
 -- Adjectives
 
   mkA = overload {
-    mkA : (_,_:Str) -> A = regA ; 
+    mkA : (_:Str) -> A = \s -> regA s ("bolj"++s) ;
+    mkA : (_,_:Str) -> A = regA ;
     mkA : (x1,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,x166 : Str) -> A = worstA ;
     } ;