(May) WIP relative clauses

src/malay/ResMay.gf

@@ -156,6 +156,12 @@ oper
 
   Clause : Type = {subj, pred : Str} ;
 
+  RClause : Type = {
+    subj : Str ;
+    pred : Person => Str} ;
+
+  ClSlash : Type = Clause ** {c2 : Preposition} ;
+
   Sentence : Type = {s : Str} ;
 
   predVP : NounPhrase -> VerbPhrase -> Clause = \np,vp -> {
@@ -163,6 +169,9 @@ oper
     pred = vp.s ! Active ; -- TODO
     } ;
 
+  predVPSlash : NounPhrase -> VPSlash -> ClSlash = \np,vps ->
+    predVP np <vps : VerbPhrase> ** {c2 = vps.c2} ;
+
 --------------------------------------------------------------------------------
 -- linrefs