(Som) Make Cl, S etc. discontinuous, to add Subj to the right place

This commit is contained in:
Inari Listenmaa
2019-07-26 22:20:00 +03:00
parent e4bc20e482
commit 99e7e61863
6 changed files with 33 additions and 24 deletions

View File

@@ -22,9 +22,9 @@ books-the men-the bring 'the books which the men bring'
RelVP rp vp = RelSlash rp (predVPSlash emptyNP vp) ;
-- : RP -> ClSlash -> RCl ; -- whom John loves
RelSlash rp cls = {
s = \\t,a,p => rp.s ++ cls.s ! True ! t ! a ! p
} ;
RelSlash rp cls =
let rcl = mergeSTM (cls.s ! True)
in rcl ** {s = \\t,a,p => rp.s ++ rcl.s ! t ! a ! p} ;
-- : RP ;