1
0
forked from GitHub/gf-rgl

(Kor) Add NForm as a parameter to A2

This commit is contained in:
Inari Listenmaa
2020-04-07 19:48:05 +02:00
parent dc948a1f9d
commit 80557e34b2
4 changed files with 11 additions and 10 deletions

View File

@@ -1,5 +1,5 @@
concrete AdjectiveKor of Adjective = CatKor **
open ResKor, (AK=AdverbKor), Prelude in {
open ResKor, Prelude in {
flags optimize=all_subs ;
@@ -18,7 +18,7 @@ concrete AdjectiveKor of Adjective = CatKor **
-- : A2 -> NP -> AP ; -- married to her
ComplA2 a2 np = a2 ** {
compar = (AK.PrepNP a2.p2 np).s ;
compar = (prepNP a2.c2 a2.p2 np).s ;
} ;
-- : A2 -> AP ; -- married to itself