fixed relative longform

2022-05-12 05:21:11 +02:00
parent 9f3b45bf48
commit 06593c5fb9
2 changed files with 4 additions and 25 deletions
@@ -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 = [] ;