GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Spa) fix bug in MakeStructuralSpa.mkDet

Browse Source
This commit is contained in:
Inari Listenmaa
2019-04-09 13:16:53 +02:00
parent f827650840
commit 74fb09daa5
1 changed files with 2 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/spanish/MakeStructuralSpa.gf
View File

@@ -55,17 +55,14 @@ oper
mkDet = overload { mkDet = overload {
-- Does not inflect for number -- Does not inflect for number
mkDet : Str -> Number -> Det = \piu,n -> lin Det { mkDet : Str -> Number -> Det = \piu,n -> lin Det {
s,sp = \\_,_ => piu ; s,sp = \\_,c => prepCase c ++ piu ;
n = n ; n = n ;
s2 = [] ; s2 = [] ;
isNeg = False isNeg = False
} ; } ;
-- Inflects for number -- Inflects for number
mkDet : Str -> Str -> Number -> Det = \alcuni,alcune,n -> lin Det { mkDet : Str -> Str -> Number -> Det = \alcuni,alcune,n -> lin Det {
s,sp = table { s,sp = \\g,c => prepCase c ++ genForms alcuni alcune ! g ;
Masc => \\_ => alcuni ;
Fem => \\_ => alcune
} ;
n = n ; n = n ;
s2 = [] ; s2 = [] ;
isNeg = False isNeg = False