add CompoundN

This commit is contained in:
Krasimir Angelov
2026-05-06 14:55:38 +02:00
parent 416d37eee7
commit 3a8527689c

View File

@@ -8,4 +8,7 @@ concrete ExtendHun of Extend = CatHun
lin
TPastSimple = {s = []} ** {t = Past} ; --# notpresent
CompoundN n1 n2 =
n2 ** {s = \\nc => n1.s ! SgNom ++ BIND ++ n2.s ! nc} ;
} ;