From 5a2b25ff253732e749f5582e95341af81d1d61a0 Mon Sep 17 00:00:00 2001
From: krangelov <kr.angelov@gmail.com>
Date: Fri, 30 Apr 2021 06:28:20 +0200
Subject: [PATCH] Enable some of the phrase building functions

---
 src/bantu/PhraseBantu.gf | 23 ++++++++++-------------
 1 file changed, 10 insertions(+), 13 deletions(-)

diff --git a/src/bantu/PhraseBantu.gf b/src/bantu/PhraseBantu.gf
index 8bed0733..85c7184d 100644
--- a/src/bantu/PhraseBantu.gf
+++ b/src/bantu/PhraseBantu.gf
@@ -1,31 +1,28 @@
 incomplete concrete PhraseBantu of Phrase = 
-  CatBantu ** open CommonBantu, ResBantu, Prelude in { }
-{-}
-  flags optimize = all_subs ;
+  CatBantu ** open CommonBantu, ResBantu, Prelude in {
 
   lin
     PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
 
-    UttS s = {s = s.s ! Indic} ;
+    UttS s = {s = s.s} ;
     UttQS qs = {s = qs.s ! QDir} ;
-    UttImpSg pol imp  = {s = pol.s ++ imp.s ! pol.p ! ImpF Sg False ! Fem} ;
+{-    UttImpSg pol imp  = {s = pol.s ++ imp.s ! pol.p ! ImpF Sg False ! Fem} ;
     UttImpPl pol imp  = {s = pol.s ++ imp.s ! pol.p ! ImpF Pl False ! Fem} ;
     UttImpPol pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Sg True  ! Fem} ;
 
-    UttIP ip = {s = ip.s ! Nom} ; --- Acc also
+    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 ! Nom).ton} ;
+    UttVP vp = {s = infVP vp (agrP3 Fem Sg)} ; --- Agr -}
     UttAdv adv = adv ;
-    UttCN n = {s = n.s ! Sg} ;
+{-    UttCN n = {s = n.s ! Sg} ;
     UttAP ap = {s = ap.s ! AF Masc Sg} ;
-    UttCard n = {s = n.s ! Masc} ;
+    UttCard n = {s = n.s ! Masc} ;-}
     UttInterj i = i ;
 
     NoPConj = {s = []} ;
     PConjConj conj = {s = conj.s2} ;
 
     NoVoc = {s = []} ;
-    VocNP np = {s = "," ++ (np.s ! Nom).ton} ;
-
--}
+{-    VocNP np = {s = "," ++ (np.s ! Nom).ton} ; -}
+}