Guess that Nom+Acc become Gen in negative, remove neggen field

This removes around 70k concrete categories (in PGFs compiled with
--optimize-pgf.)
Unsure if that is actually useful -- the number of concrete functions
only went down by a couple hundred.
This commit is contained in:
Inari Listenmaa
2020-09-12 18:45:44 +02:00
committed by Roman Suzi
parent a793daaf11
commit 6661bdff95
3 changed files with 10 additions and 3 deletions

View File

@@ -1563,7 +1563,7 @@ oper
applyPolPrep : Polarity -> ComplementCase -> NounPhrase -> Str
= \pol,prep,np ->
let prep'=prep ** {
c=case <pol, prep.neggen> of {<Neg, True> => Gen ; _ => prep.c}
c=case <pol, neggen prep> of {<Neg, True> => Gen ; _ => prep.c}
} in applyPrep prep' np ;
applyIPronPrep : ComplementCase -> IPronounForms -> Str