From 291a3051efbdae477581db66771c62e60a6d3f5b Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Tue, 7 Apr 2020 21:02:42 +0200
Subject: [PATCH] (Kor) Add ApposNP in ExtendKor

---
 src/korean/ExtendKor.gf | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/korean/ExtendKor.gf b/src/korean/ExtendKor.gf
index 345728b0..d0d462dd 100644
--- 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} ;
 } ;