(Kor) Add ApposNP in ExtendKor

2020-04-07 21:02:42 +02:00
parent 80557e34b2
commit 291a3051ef
1 changed files with 5 additions and 2 deletions
--- a/src/korean/ExtendKor.gf
+++ b/src/korean/ExtendKor.gf
@@ -1,8 +1,11 @@
 --# -path=.:../common:../abstract

 concrete ExtendKor of Extend = CatKor
-  -- ** ExtendFunctor - []
+  -- ** ExtendFunctor - [ApposNP]
  -- with (Grammar=GrammarKor)
-  ** open Prelude, ResKor, NounKor in {
+  ** open Prelude, ResKor, NounKor, Coordination in {

+  lin
+    -- : NP -> NP -> NP
+    ApposNP np1 np2 = np1 ** {s = \\nf => np1.s ! nf ++ np2.s ! nf} ;
 } ;