From 6b91d8409a87826e533e1568693f1a68c9c5b058 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 21 Nov 2018 16:31:36 +0100
Subject: [PATCH] (Ara) Force inherently dual nouns to dual only with a plural
 determiner

---
 src/arabic/NounAra.gf | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/arabic/NounAra.gf b/src/arabic/NounAra.gf
index dd845055b..a674b8844 100644
--- a/src/arabic/NounAra.gf
+++ b/src/arabic/NounAra.gf
@@ -6,7 +6,12 @@ lin
 
   DetCN det cn = let {
     cas : Case -> Case = if_then_else Case det.is1sg Bare ;
-    number = case cn.isDual of {True => Dl ; _ => sizeToNumber det.n} ;
+    number = case cn.isDual of {
+                True => 
+                  case sizeToNumber det.n of {
+                         Sg => Sg ;
+                         _  => Dl } ;
+                False => sizeToNumber det.n } ;
     determiner : Case -> Str = \c ->
       det.s ! cn.h ! (detGender cn.g det.n) ! c ;
     noun : Case -> Str = \c ->