(Kor) Add linrefs to V* cats

2020-03-24 20:50:54 +01:00
parent 48fd16d5da
commit 5344ca7cce
3 changed files with 5 additions and 0 deletions
--- a/src/korean/CatKor.gf
+++ b/src/korean/CatKor.gf
@@ -117,4 +117,7 @@ concrete CatKor of Cat = CommonX ** open ResKor, Prelude in {
    N2 = ResKor.Noun2 ;
    N3 = ResKor.Noun3 ;
    PN = ResKor.PNoun ;
+
+linref
+  V, V2, V3, VP = linVerb ;
 }
--- a/src/korean/ParamKor.gf
+++ b/src/korean/ParamKor.gf
--- a/src/korean/ResKor.gf
+++ b/src/korean/ResKor.gf
@@ -248,4 +248,6 @@ oper
 --------------------------------------------------------------------------------
 -- linrefs

+linVerb : Verb -> Str = \v -> v.s ! linVF ;
+
 }