From e1a558fc7db1214b6e895f3c7bf16de614821e57 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Thu, 13 Mar 2014 21:08:21 +0000
Subject: [PATCH] small fix in PredEng

---
 lib/src/experimental/PredEng.gf | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lib/src/experimental/PredEng.gf b/lib/src/experimental/PredEng.gf
index 2f9cddced..6c9bde3f3 100644
--- a/lib/src/experimental/PredEng.gf
+++ b/lib/src/experimental/PredEng.gf
@@ -9,6 +9,8 @@ concrete PredEng of Pred =
       QuestVP,
       RelVP,
 
+      UseCN,  -- insert article
+
       UseCl,  -- for contracted forms
 
       QuestIComp  ---- IComp has no parameters in Eng
@@ -38,6 +40,12 @@ lin
     qforms = \\agr => qformsCopula (a.s ++ t.s ++ p.s) t.t a.a p.p agr ;
     } ;
 
+  UseCN x a t p cn = useCopula a t p ** {
+    c1  = cn.c1 ;
+    c2  = cn.c2 ;
+    adj = \\a => case agr2nagr a of {Sg => R.artIndef ++ cn.s ! Sg ; Pl => cn.s ! Pl} ;
+    obj1 = <cn.obj1, defaultAgr> ;
+    } ;
 
   PredVP x np vp = vp ** {
     v    = applyVerb vp (agr2vagr np.a) ;