fixed relative longform

src/zulu/ResZul.gf

@@ -642,30 +642,6 @@ resource ResZul = open Prelude,Predef,ParamX in {
       t = RelType
     } ;
 
-    -- enumAdj : Str -> { s : AForm => Str ; empty : Str ; t : AType } = \a ->
-    -- {
-    --   s = \\_ => a ;
-    --   -- b = case a of {
-    --   --   ("kh"|"th"|"sh"|"b"|"f"|"hl")+_ => True ;
-    --   --   ("m"|"n")+_ => True ;
-    --   --   _ => False
-    --   -- } ;
-    --   empty = [] ;
-    --   t = EnumType
-    -- } ;
-
-    -- relSuf : VForm -> Bool -> Str = \longform ->
-    -- case longform of {
-    --   True => pre { #vowel => [] ; #cons => [] ; "y" => [] ; _ => "yo" } ;
-    --   False => []
-    -- } ;
-
-    rel_yo : Str = pre {
-      #vowel => [] ;
-      #cons => [] ;
-      _ => BIND++"yo"
-    } ;
-
     rel_yo_2 : Str = BIND++"yo" ;
 
     relSuf : VForm -> Str = \vform -> case vform of {

src/zulu/VerbZul.gf

@@ -16,7 +16,10 @@ concrete VerbZul of Verb = CatZul ** open ResZul, Prelude, ParamX in {
           rc = relConc vform a v.r ; -- o-
           tp = tensePref vform v.r v.syl ; -- [] / zo- / zuku-
           r = v.s!(rform vform l) ; -- hamba
-          suf = relSuf vform -- [] / -yo
+          suf = case l of {
+            True => relSuf vform ;
+            False => []
+          } ;
         in rc ++ tp ++ r ++ suf
       } ;
       iadv, advs, comp = [] ;