From 4f46a96ffbeef1471b1b5fbfe83b3f98f939932c Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Fri, 2 Dec 2011 09:49:50 +0000
Subject: [PATCH] CompBareCN in ExtraScand

---
 lib/src/abstract/Extra.gf          | 1 +
 lib/src/scandinavian/ExtraScand.gf | 6 ++++++
 2 files changed, 7 insertions(+)

diff --git a/lib/src/abstract/Extra.gf b/lib/src/abstract/Extra.gf
index 45e7f7145..eda65e1e6 100644
--- a/lib/src/abstract/Extra.gf
+++ b/lib/src/abstract/Extra.gf
@@ -11,6 +11,7 @@ abstract Extra = Cat ** {
     GenIP       : IP -> IQuant ;      -- whose
     GenRP       : Num -> CN -> RP ;   -- whose car
     ComplBareVS : VS -> S -> VP ;     -- know you go
+    CompBareCN  : CN -> Comp ;        -- (est) professeur
 
     StrandRelSlash   : RP -> ClSlash -> RCl ;   -- that he lives in
     EmptyRelSlash    : ClSlash -> RCl ;   -- he lives in
diff --git a/lib/src/scandinavian/ExtraScand.gf b/lib/src/scandinavian/ExtraScand.gf
index 2476ea86b..527685b00 100644
--- a/lib/src/scandinavian/ExtraScand.gf
+++ b/lib/src/scandinavian/ExtraScand.gf
@@ -9,6 +9,12 @@ incomplete concrete ExtraScand of ExtraScandAbs = CatScand **
 
     ComplBareVS v s  = insertObj (\\_ => s.s ! Sub) (predV v) ;
 
+    CompBareCN cn = {s = \\a => case a.n of { 
+      Sg => cn.s ! Sg ! DIndef ! Nom ;
+      Pl => cn.s ! Pl ! DIndef ! Nom
+      }
+    } ;
+
     StrandRelSlash rp slash  = {
       s = \\t,a,p,ag,_ => 
           rp.s ! ag.g ! ag.n ! RNom ++ slash.s ! t ! a ! p ! Sub ++ slash.c2.s ;