From 19dca60b6e0f3823807b3c6f64d4bee6466b7363 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 4 Jan 2019 12:56:46 +0200
Subject: [PATCH] (Ara) Add EmptyRelSlash to ExtendAra

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

diff --git a/src/arabic/ExtendAra.gf b/src/arabic/ExtendAra.gf
index be05864a..2a0877ed 100644
--- a/src/arabic/ExtendAra.gf
+++ b/src/arabic/ExtendAra.gf
@@ -15,6 +15,7 @@ concrete ExtendAra of Extend =
     ParamX,
     ResAra,
     Prelude,
+    RelativeAra,
     Coordination
 
   in {
@@ -28,6 +29,9 @@ concrete ExtendAra of Extend =
     -- : AP -> IComp ;   -- "how old"
     ICompAP ap = {s = \\gn => "كَمْ" ++ ap.s ! NoHum ! gn.g ! gn.n ! Indef ! Acc} ;
 
+    -- : ClSlash -> RCl  -- he lives in
+    EmptyRelSlash = RelSlash (IdRP ** {s = \\_ => []}) ;
+
   lincat
     VPS   = {s : PerGenNum => Str} ;  -- finite VP's with tense and polarity
     [VPS] = {s1,s2 : PerGenNum => Str} ;