mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-06 09:42:50 -06:00
genGenNum operation not needed anymore - remove
This commit is contained in:
@@ -135,16 +135,6 @@ resource ResBul = ParamX ** open Prelude in {
|
|||||||
GPl => Pl
|
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 ->
|
aform : GenNum -> Species -> Role -> AForm = \gn,spec,role ->
|
||||||
case gn of {
|
case gn of {
|
||||||
GSg g => case <g,spec,role> of {
|
GSg g => case <g,spec,role> of {
|
||||||
|
|||||||
Reference in New Issue
Block a user