From 73fb39164f6d0bbabf9f478fcb720b272b9e2c94 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Sun, 19 Apr 2020 17:06:09 +0200
Subject: [PATCH] (Hun) More constructors for mkA2

---
 src/hungarian/ParadigmsHun.gf | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/hungarian/ParadigmsHun.gf b/src/hungarian/ParadigmsHun.gf
index d58f52bdc..e2b7787c5 100644
--- a/src/hungarian/ParadigmsHun.gf
+++ b/src/hungarian/ParadigmsHun.gf
@@ -37,7 +37,8 @@ oper
 
   mkA2 : overload {
     mkA2 : Str -> Prep -> A2 ;
-    mkA2 : Str -> Case -> A2
+    mkA2 : Str -> Case -> A2 ;
+    mkA2 : A -> Prep -> A2 ;
   } ;
 
 --2 Verbs
@@ -149,10 +150,13 @@ oper
     } ;
 
   mkA2 = overload {
+    mkA2 : A -> A2 = \a -> a ** {c2 = casePrep Nom} ;
     mkA2 : Str -> Prep -> A2 = \s,p ->
       lin A2 {s = (mkAdj s).s ; c2 = p} ;
     mkA2 : Str -> Case -> A2 = \s,c ->
-      lin A2 {s = (mkAdj s).s ; c2 = {s = [] ; c = c}}
+      lin A2 {s = (mkAdj s).s ; c2 = casePrep c} ;
+    mkA2 : A -> Prep -> A2 = \a,p ->
+      lin A2 (a ** {c2 = p}) ;
     } ;
 
   mkV = overload {