From fa7a2f601a9cf76ff218f980179c6792c24c0de3 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Fri, 22 May 2015 12:27:35 +0000
Subject: [PATCH] restored ExtensionsGer.CompoundN so that it compiles with the
 current RGL

---
 lib/src/translator/ExtensionsGer.gf | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lib/src/translator/ExtensionsGer.gf b/lib/src/translator/ExtensionsGer.gf
index 62708685b..a0b887eef 100644
--- a/lib/src/translator/ExtensionsGer.gf
+++ b/lib/src/translator/ExtensionsGer.gf
@@ -63,12 +63,24 @@ lin
     PredVPosv = G.PredVP;
     PredVPovs = G.PredVP;
 
+  CompoundN noun cn = {
+    s = \\n,c => glue noun.co (cn.uncap.s ! n ! c) ;
+    co = glue noun.co (cn.uncap.co) ;
+    uncap = {
+      s = \\n,c => glue noun.uncap.co (cn.uncap.s ! n ! c) ;
+      co = glue noun.uncap.co (cn.uncap.co)
+      } ;
+    g = cn.g
+  } ;
+{- ---- doesn't compile AR 22/5/2015
   CompoundN noun cn = {
     s = \\n,c => glue noun.co (cn.s ! n ! c) ;
     co = glue noun.co (cn.co) ;
     g = cn.g
   } ;
 
+-}
+
     CompoundAP noun adj = {
       s = \\af => glue (noun.s ! Sg ! Nom) (adj.s ! Posit ! af) ;
       isPre = True