From 8d8a089f535c4c551155ed9b08b3c5c60ecb3908 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Thu, 21 May 2020 19:51:15 +0200
Subject: [PATCH] (Kor) Add linref for AP

---
 src/korean/CatKor.gf | 1 +
 src/korean/ResKor.gf | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/korean/CatKor.gf b/src/korean/CatKor.gf
index 94be91df..a6fc9d84 100644
--- a/src/korean/CatKor.gf
+++ b/src/korean/CatKor.gf
@@ -120,4 +120,5 @@ concrete CatKor of Cat = CommonX ** open ResKor, Prelude in {
 linref
   V, V2, V3 = linVerb ;
   VP = linVP linVF ;
+  AP = linAP ;
 }
diff --git a/src/korean/ResKor.gf b/src/korean/ResKor.gf
index d1b47262..541884d6 100644
--- a/src/korean/ResKor.gf
+++ b/src/korean/ResKor.gf
@@ -384,5 +384,5 @@ oper
 
 linVerb : Verb -> Str = \v -> v.s ! linVF ;
 linVP : VForm -> VerbPhrase -> Str = \vf,vp -> vp.nObj ++ vp.adv ++ vp.s ! vf ;
-
+linAP : AdjPhrase -> Str = \ap -> ap.compar ++ ap.s ! linVF ;
 }