From 5889d5bbb33d95264a74f985ed4a1e4f497aba4a Mon Sep 17 00:00:00 2001
From: odanoburu <bcclaro@gmail.com>
Date: Mon, 10 Dec 2018 20:52:29 +0200
Subject: [PATCH] (Romance) modify CompAP to use copTyp from adjective

---
 src/romance/VerbRomance.gf | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/src/romance/VerbRomance.gf b/src/romance/VerbRomance.gf
index d4dba254d..1332336f8 100644
--- a/src/romance/VerbRomance.gf
+++ b/src/romance/VerbRomance.gf
@@ -91,7 +91,13 @@ incomplete concrete VerbRomance of Verb =
 
     UseCopula = predV copula ;
 
-    CompAP ap = {s = \\ag => let agr = complAgr ag in ap.s ! genNum2Aform agr.g agr.n ; cop = serCopula} ;
+    CompAP ap = {
+      s = \\ag =>
+        let
+          agr = complAgr ag
+        in ap.s ! genNum2Aform agr.g agr.n ;
+      cop = ap.copTyp
+      } ;
     CompCN cn = { s = \\ag =>
         let agr = complAgr ag in
         artIndef False cn.g agr.n Nom ++ cn.s ! agr.n ;
@@ -115,4 +121,5 @@ incomplete concrete VerbRomance of Verb =
     VPSlashPrep vp prep = vp ** {
       c2 = {s = prep.s ; c = prep.c ; isDir = False}
       } ;
-}
+
+} ;