From be6a44e57378defc6e03a0479d8a4736750835e8 Mon Sep 17 00:00:00 2001
From: Ayberk Tosun <ayberk.tosun@gmail.com>
Date: Wed, 23 Aug 2017 15:38:24 +0300
Subject: [PATCH] Implement DetQuantOrd

---
 src/turkish/NounTur.gf | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/turkish/NounTur.gf b/src/turkish/NounTur.gf
index d8a5980ae..e8ea70c0c 100644
--- a/src/turkish/NounTur.gf
+++ b/src/turkish/NounTur.gf
@@ -25,6 +25,12 @@ concrete NounTur of Noun = CatTur ** open ResTur, SuffixTur, HarmonyTur, Prelude
       useGen = quant.useGen
     } ;
 
+    DetQuantOrd quant num o = {
+      s  = quant.s ++ num.s ! Sg ! Nom ++ o.s ! num.n ! Nom ;
+      n  = num.n;
+      useGen = quant.useGen
+    } ;
+
     NumSg = {s = \\num,c => []; n = Sg} ;
     NumPl = {s = \\num,c => []; n = Pl} ;