an overloaded version of mkPN which takes advantage of the smart paradigms for nouns. also now we store only the singular forms for all PNs. added NounSlv.UsePN

2016-08-30 09:41:57 +00:00
parent 3591b71bab
commit f1aff40123
4 changed files with 24 additions and 17 deletions
@@ -16,6 +16,7 @@ concrete NounSlv of Noun = CatSlv ** open ResSlv in {
          }
      } ;

+    UsePN pn = {s = pn.s; a = {g=agender2gender pn.g; n=Sg; p=P3}} ;
    UsePron p = p ;

    DetQuant quant num = {