1
0
forked from GitHub/gf-rgl

(Por) delete smartGenNoun, actually

This commit is contained in:
odanoburu
2019-01-08 10:22:01 -02:00
parent 3cb24d9b0d
commit e2d657bf7a

View File

@@ -85,9 +85,6 @@ oper
mkNounIrreg : Str -> Str -> Gender -> Noun = \mec,mecs -> mkNounIrreg : Str -> Str -> Gender -> Noun = \mec,mecs ->
mkNoun (numForms mec mecs) ; mkNoun (numForms mec mecs) ;
smartGenNoun : Str -> Gender -> Noun =
\vinho,g -> mkNomReg vinho ** {g = g} ;
mkNomReg : Str -> Noun = \vinho -> case vinho of { mkNomReg : Str -> Noun = \vinho -> case vinho of {
chapéu + "-" + de + "-" + sol => mkNoun (nomChapeudesol chapéu de sol) Masc ; chapéu + "-" + de + "-" + sol => mkNoun (nomChapeudesol chapéu de sol) Masc ;