From 38cdfc8efedd083044975de28d81276b79f51ff8 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 17 Sep 2021 11:33:55 +0800
Subject: [PATCH] (Cat) new instance of prefA

---
 src/catalan/ParadigmsCat.gf | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/catalan/ParadigmsCat.gf b/src/catalan/ParadigmsCat.gf
index 95f01fed1..da1488720 100644
--- a/src/catalan/ParadigmsCat.gf
+++ b/src/catalan/ParadigmsCat.gf
@@ -340,7 +340,10 @@ oper
   prefA = overload {
     prefA : A -> A = \a -> a ** {isPre = True} ;
     prefA : Str -> Str -> A = \bo,bon ->
-      let adj : A = compADeg (adjBo bo bon) ;
+      let adj : A = compADeg (adjBo bo bon (bon+"ament")) ; -- not sure if there is any actual adjective that behaves like this /IL
+       in adj ** {isPre = True} ;
+    prefA : (bo,bon,be : Str) -> A = \bo,bon,be ->
+      let adj : A = compADeg (adjBo bo bon be) ;
        in adj ** {isPre = True} ;
   } ;