Extend connected at last

This commit is contained in:
Roman Suzi
2020-08-04 07:34:11 +03:00
parent 8b5e28b948
commit 8e824083a2
8 changed files with 51 additions and 169 deletions
+1 -1
View File
@@ -207,7 +207,7 @@ oper
from2 = {s="из"; c=Gen; hasPrep=True} ;
compoundN : NounForms -> Str -> NounForms -> NounForms
mkCompoundN : NounForms -> Str -> NounForms -> NounForms
= \n1,link,n2 ->
let l : Str=case link of {x+"-" => BIND ++ "-" ++ BIND ; _ => link} in
n1 ** {