some ParadigmsEng,Fin,Ger additions

2021-07-30 09:29:19 +02:00
parent da443a79af
commit cb502488d1
3 changed files with 11 additions and 1 deletions
@@ -396,6 +396,8 @@ mkVS = overload {
      Part => lin Det (MorphoFin.mkDetPol isNeg nu (snoun2nounBind noun)) ** {isNum = True} ; --- works like "kolme autoa"
      _ => lin Det (MorphoFin.mkDetPol isNeg nu (snoun2nounBind noun)) ---- are there other cases?
      } ;
+    mkDet : Str -> Det -> Det -- add a string to a Det, e.g. "suunnilleen jokainen"
+      = \s,det -> det ** {s1 = \\c => s ++ det.s1 ! c} ;
    } ;

  mkQuant = overload {