(zul) changes to improve coverage (VulaBula)

src/zulu/PhraseExtZul.gf

@@ -0,0 +1,19 @@
+concrete PhraseExtZul of PhraseExt = CatZul,CatExtZul ** open ResZul, Prelude, ParamX in {
+
+  lin
+    DirectSpeech phr t v np = {
+      s = let
+        vform = case t.t of {
+          PastTense => v.s!R_e ;
+          PresTense => v.s!R_a ;
+          _ => v.s!R_a ++ "*"
+        } ;
+      in
+        phr.s ++ "ku" ++ BIND ++ vform ++ np.s!NFull ++ t.s
+    } ;
+
+    ExtPhrConj p1 p2 = {
+      s = p1.s ++ p2.s
+    } ;
+
+}