forked from GitHub/gf-rgl
(Por) delete smartGenNoun, actually
This commit is contained in:
@@ -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 ;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user