From d9d3699b20780063c10dd7366d2cd74cf6005875 Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Thu, 27 Dec 2018 12:28:18 +0100
Subject: [PATCH] mkDet in MakeStructuralEng,Fin

---
 src/english/MakeStructuralEng.gf | 2 ++
 src/finnish/MakeStructuralFin.gf | 3 +++
 2 files changed, 5 insertions(+)

diff --git a/src/english/MakeStructuralEng.gf b/src/english/MakeStructuralEng.gf
index b293bff59..71edc2fb6 100644
--- a/src/english/MakeStructuralEng.gf
+++ b/src/english/MakeStructuralEng.gf
@@ -11,5 +11,7 @@ oper
     lin IDet {s = s ; n = n} ;
   mkIQuant : Str -> Str -> IQuant = \s,n ->
     lin IQuant {s = table {Sg => s ; Pl => n}} ;
+  mkDet : Str -> Number -> Det = \s,n ->
+    lin Det (mkDeterminer n s) ;
 
 }
diff --git a/src/finnish/MakeStructuralFin.gf b/src/finnish/MakeStructuralFin.gf
index 9682486a0..d42d9ead0 100644
--- a/src/finnish/MakeStructuralFin.gf
+++ b/src/finnish/MakeStructuralFin.gf
@@ -10,4 +10,7 @@ oper
   mkIQuant : Str -> IQuant = \s ->
     {s = \\n,c => s ; lock_IQuant = <>} ; ----
 
+  mkDet : N -> Number -> Det = \s,n ->
+    MorphoFin.mkDet n s ;
+    
 }