added a case to MakeStructuralFre.mkDet

GrammaticalFramework · Jul 29, 2024 · 78f333e · 78f333e
1 parent 710e736
commit 78f333e
Showing 1 changed file with 5 additions and 0 deletions.
diff --git 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 ;