From 93945265b893911684c5fbe6c345f14df9d44b3c Mon Sep 17 00:00:00 2001
From: aarneranta <aarne@chalmers.se>
Date: Tue, 14 Sep 2021 10:59:55 +0200
Subject: [PATCH] ExtendSwe.CardCNCard added

---
 src/swedish/ExtendSwe.gf | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/swedish/ExtendSwe.gf b/src/swedish/ExtendSwe.gf
index 76b1b775..c1689845 100644
--- a/src/swedish/ExtendSwe.gf
+++ b/src/swedish/ExtendSwe.gf
@@ -15,7 +15,8 @@ concrete ExtendSwe of Extend = CatSwe **
     Base_rr_RNP, Base_nr_RNP, Base_rn_RNP, Cons_rr_RNP, Cons_nr_RNP, ReflPossPron,
     CompoundN, CompoundAP, AdvIsNP,
     UttAccNP,
-    A2VPSlash, N2VPSlash
+    A2VPSlash, N2VPSlash,
+    CardCNCard 
   ]
   with (Grammar = GrammarSwe)
     **
@@ -388,4 +389,8 @@ lin UseDAPMasc, UseDAPFem = \dap ->
         a = agrP3 (ngen2gen g) dap.n ;
         isPron = False
       } ;
+
+lin CardCNCard card cn =
+  {s = \\g => card.s ! cn.g ++ cn.s ! card.n ! DIndef ! Nom ; n = Pl} ;
+  
 }