From 338c347d7ca7b4b16b8868ad4665b98a8618c72e Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Mon, 18 Aug 2025 19:13:53 +0200
Subject: [PATCH] another version of CompoundN

---
 src/french/ExtendFre.gf | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/french/ExtendFre.gf b/src/french/ExtendFre.gf
index 059cc0d6..57ec59ac 100644
--- a/src/french/ExtendFre.gf
+++ b/src/french/ExtendFre.gf
@@ -98,10 +98,9 @@ lin ApposNP np1 np2 = np1 ** {    -- guessed by KA
 lin CompoundN a b = lin N {
       s = \\n => b.s ! n ++
                  case b.relType of {
-                   NRelPrep p => prepCase (CPrep p) ;  -- tasa de suicidio
-                   NRelNoPrep => []                    -- connessione internet = internet connection
-                 } ++
-                 a.s ! n ;
+                   NRelPrep p => prepCase (CPrep p) ++ a.s ! Sg ;  -- tasa de suicidio
+                   NRelNoPrep => a.s ! n               -- connessione internet = internet connection
+                 } ;
       g = b.g ;
       relType = b.relType
       } ;