forked from GitHub/gf-core
refactored Scandinavian NP agreement features
This commit is contained in:
@@ -32,8 +32,8 @@ oper
|
||||
funfun = ptPretAll funnen
|
||||
in
|
||||
mkCase c (case a of {
|
||||
(Strong (SgUtr)) => funnen ;
|
||||
(Strong (SgNeutr)) => funfun.p1 ;
|
||||
(Strong (GSg Utr)) => funnen ;
|
||||
(Strong (GSg Neutr)) => funfun.p1 ;
|
||||
_ => funfun.p2
|
||||
}
|
||||
) ;
|
||||
|
||||
Reference in New Issue
Block a user