1
0
forked from GitHub/gf-core

refactored Scandinavian NP agreement features

This commit is contained in:
aarne
2010-01-05 23:00:40 +00:00
parent 4db9cd2b70
commit c4cbd1f405
32 changed files with 301 additions and 285 deletions

View File

@@ -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
}
) ;