mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-23 10:11:10 -06:00
(Som) Make Cl, S etc. discontinuous, to add Subj to the right place
This commit is contained in:
@@ -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 ;
|
||||
|
||||
Reference in New Issue
Block a user