forked from GitHub/gf-rgl
12 lines
297 B
Plaintext
12 lines
297 B
Plaintext
--# -path=.:../common:../abstract
|
|
|
|
concrete ExtendKor of Extend = CatKor
|
|
-- ** ExtendFunctor - [ApposNP]
|
|
-- with (Grammar=GrammarKor)
|
|
** open Prelude, ResKor, NounKor, Coordination in {
|
|
|
|
lin
|
|
-- : NP -> NP -> NP
|
|
ApposNP np1 np2 = np1 ** {s = \\nf => np1.s ! nf ++ np2.s ! nf} ;
|
|
} ;
|