(Kor) Add linrefs to V* cats

2020-03-24 20:50:54 +01:00
1 parent 48fd16d5da
commit 5344ca7cce
@@ -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 ;
 }
@@ -248,4 +248,6 @@ oper
 --------------------------------------------------------------------------------
 -- linrefs

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