mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 08:58:55 -06:00
a new paradigm for mkLN which adds an adjective
This commit is contained in:
@@ -507,6 +507,10 @@ oper
|
|||||||
g = nf.g ;
|
g = nf.g ;
|
||||||
n = n
|
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