a new paradigm for mkLN which adds an adjective

This commit is contained in:
Krasimir Angelov
2023-11-04 16:45:22 +01:00
parent bfad5839b8
commit 250f7ee82c

View File

@@ -507,6 +507,10 @@ oper
g = nf.g ;
n = n
} ;
mkLN : A -> LN -> LN
= \a, ln -> ln ** {
s = \\cas => (adjFormsAdjective a).s ! (gennum ln.g ln.n) ! ln.anim ! cas ++ ln.s ! cas
} ;
} ;
---------------------