From 1e3e42e308e012be33b02113accbc38c0842164a Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Fri, 24 Aug 2018 10:53:38 +0200
Subject: [PATCH] allow compound nouns with dash

---
 src/english/ExtendEng.gf | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/english/ExtendEng.gf b/src/english/ExtendEng.gf
index 993220c4d..26613eed7 100644
--- a/src/english/ExtendEng.gf
+++ b/src/english/ExtendEng.gf
@@ -251,10 +251,11 @@ concrete ExtendEng of Extend =
    SlashBareV2S v s = insertExtrac s.s (predVc v) ;
 
   CompoundN noun cn = {
-    s = \\n,c => noun.s ! Sg ! Nom ++ cn.s ! n ! c ;
+    s = variants {\\n,c => noun.s ! Sg ! Nom ++                    cn.s ! n ! c ;
+                  \\n,c => noun.s ! Sg ! Nom ++ BIND++"-"++BIND ++ cn.s ! n ! c} ;
     g = cn.g
   } ;
-  
+
   CompoundAP noun adj = {
     s = variants {\\_ => noun.s ! Sg ! Nom ++                    adj.s ! AAdj Posit Nom ;
                   \\_ => noun.s ! Sg ! Nom ++ BIND++"-"++BIND ++ adj.s ! AAdj Posit Nom} ;