forked from GitHub/gf-rgl
a new paradigm for mkLN which adds an adjective
This commit is contained in:
@@ -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
|
||||
} ;
|
||||
} ;
|
||||
|
||||
---------------------
|
||||
|
||||
Reference in New Issue
Block a user