1
0
forked from GitHub/gf-core

genGenNum operation not needed anymore - remove

This commit is contained in:
krasimir
2008-06-10 21:23:32 +00:00
parent acd37bec0c
commit 31b4d5640f

View File

@@ -135,16 +135,6 @@ resource ResBul = ParamX ** open Prelude in {
GPl => Pl
} ;
---- FIXME: added by AR, used in QuestionBul and StructuralBul
genGenNum : GenNum -> DGender = \g -> case g of {
GSg Masc => DMasc ;
GSg Fem => DFem ;
GSg Neut => DNeut ;
_ => DNeut ----
} ;
aform : GenNum -> Species -> Role -> AForm = \gn,spec,role ->
case gn of {
GSg g => case <g,spec,role> of {