From 74fb09daa5e17bb77b925da1653cb1ee637b79dc Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Tue, 9 Apr 2019 13:16:53 +0200
Subject: [PATCH] (Spa) fix bug in MakeStructuralSpa.mkDet

---
 src/spanish/MakeStructuralSpa.gf | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/src/spanish/MakeStructuralSpa.gf b/src/spanish/MakeStructuralSpa.gf
index 235cefe8..bda2f96f 100644
--- a/src/spanish/MakeStructuralSpa.gf
+++ b/src/spanish/MakeStructuralSpa.gf
@@ -55,17 +55,14 @@ oper
   mkDet = overload {
     -- Does not inflect for number
     mkDet : Str -> Number -> Det = \piu,n -> lin Det {
-      s,sp = \\_,_ => piu ;
+      s,sp = \\_,c => prepCase c ++ piu ;
       n = n ;
       s2 = [] ;
       isNeg = False
     } ;
     -- Inflects for number
     mkDet : Str -> Str -> Number -> Det = \alcuni,alcune,n -> lin Det {
-      s,sp = table {
-        Masc => \\_ => alcuni ;
-        Fem  => \\_ => alcune
-      } ;
+      s,sp = \\g,c => prepCase c ++ genForms alcuni alcune ! g ;
       n = n ;
       s2 = [] ;
       isNeg = False