From 0e5450e7922b624b0f0970d83248180d7d7f5964 Mon Sep 17 00:00:00 2001
From: krangelov <kr.angelov@gmail.com>
Date: Fri, 30 Apr 2021 07:13:07 +0200
Subject: [PATCH] added UttNP & UttCN

---
 src/bantu/PhraseBantu.gf | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/bantu/PhraseBantu.gf b/src/bantu/PhraseBantu.gf
index 85c7184d3..126df3b15 100644
--- a/src/bantu/PhraseBantu.gf
+++ b/src/bantu/PhraseBantu.gf
@@ -12,11 +12,11 @@ incomplete concrete PhraseBantu of Phrase =
 
     UttIP ip = {s = ip.s ! Nom} ; --- Acc also -}
     UttIAdv iadv = iadv ;
-{-    UttNP np = {s = (np.s ! Nom).ton} ;
-    UttVP vp = {s = infVP vp (agrP3 Fem Sg)} ; --- Agr -}
+    UttNP np = {s = np.s ! npNom} ;
+{-    UttVP vp = {s = infVP vp (agrP3 Fem Sg)} ; --- Agr -}
     UttAdv adv = adv ;
-{-    UttCN n = {s = n.s ! Sg} ;
-    UttAP ap = {s = ap.s ! AF Masc Sg} ;
+    UttCN n = {s = n.s ! Sg ! Nom} ;
+{-    UttAP ap = {s = ap.s ! AF Masc Sg} ;
     UttCard n = {s = n.s ! Masc} ;-}
     UttInterj i = i ;