(Kor) Add linref for AP

This commit is contained in:
Inari Listenmaa
2020-05-21 19:51:15 +02:00
parent b1c578025d
commit 8d8a089f53
2 changed files with 2 additions and 1 deletions

View File

@@ -120,4 +120,5 @@ concrete CatKor of Cat = CommonX ** open ResKor, Prelude in {
linref
V, V2, V3 = linVerb ;
VP = linVP linVF ;
AP = linAP ;
}

View File

@@ -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 ;
}