From 78f333e79e631cd63ddc1de9aacd6eec61b62cac Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Mon, 29 Jul 2024 18:03:09 +0200
Subject: [PATCH] added a case to MakeStructuralFre.mkDet

---
 src/french/MakeStructuralFre.gf | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/french/MakeStructuralFre.gf b/src/french/MakeStructuralFre.gf
index 037d2c20f..27781cd2c 100644
--- a/src/french/MakeStructuralFre.gf
+++ b/src/french/MakeStructuralFre.gf
@@ -44,6 +44,11 @@ oper
       spn = \\c => prepCase c ++ s ;
       n = Sg ; s2 = \\g => [] ; isNeg = False
     } ;
+    mkDet : Str -> Number -> Det = \s, n -> lin Det {
+      s,sp = \\_,c => prepCase c ++ s ;
+      spn = \\c => prepCase c ++ s ;
+      n = n ; s2 = \\g => [] ; isNeg = False
+    } ;
     mkDet : Str -> Str -> Number -> Det = \m,f,n -> lin Det {
       s,sp = \\g,c => prepCase c ++ case g of {Masc => m ; Fem => f} ;
       spn = \\c => prepCase c ++ m ;