From a2551f783bad5b452659c9712056a2db90ef8b04 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Mon, 24 Sep 2018 16:37:21 +0200
Subject: [PATCH] (Ara) Add constructor for compound nouns

---
 src/arabic/ParadigmsAra.gf | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/arabic/ParadigmsAra.gf b/src/arabic/ParadigmsAra.gf
index e900e64b7..fb4e13bce 100644
--- a/src/arabic/ParadigmsAra.gf
+++ b/src/arabic/ParadigmsAra.gf
@@ -53,7 +53,9 @@ resource ParadigmsAra = open
    mkN : NTable -> Gender -> Species -> N                             -- loan words, irregular
      = mkFullN ;
    mkN : (root,sgPatt,brokenPlPatt : Str) -> Gender -> Species -> N   -- broken plural
-    = brkN ;
+     = brkN ;
+   mkN : N -> (attr : Str) -> N                                       -- Compound nouns
+     = \n,attr -> n ** { s = \\num,s,c => n.s ! num ! s ! c ++ attr } ; --- IL (TODO: all kinds of compounds)
 ---   mkN : (root,sgPatt : Str) -> Gender -> Species -> N                -- sound feminine plural
 ---    = sdfN ;
    } ;