(May) More test, and comments on possession

2020-08-20 10:13:02 +02:00
parent 014c3569eb
commit 8208485f48
2 changed files with 23 additions and 7 deletions
@@ -180,6 +180,7 @@ concrete NounMay of Noun = CatMay ** open ResMay, Prelude in {
 --2 Possessive and partitive constructs

  -- : PossNP  : CN -> NP -> CN ;
+  -- this produces "bukunya".
  PossNP cn np = cn ** {
    s = \\nf => case <np.a, nf> of {
      <IsPron p, NF num _>