(May) WIP relative clauses

src/malay/NounMay.gf

@@ -38,8 +38,9 @@ concrete NounMay of Noun = CatMay ** open ResMay, Prelude in {
   --AdvNP,ExtAdvNP = \np,adv -> np ** {} ;
 
   -- : NP -> RS -> NP ;    -- Paris, which is here
-  -- RelNP np rs = np ** {
-  --   } ;
+    RelNP np rs = np ** {
+      s = np.s ++ rs.subj ++ rs.pred ! np.p
+      } ;
 
 -- Determiners can form noun phrases directly.
 
@@ -144,8 +145,9 @@ concrete NounMay of Noun = CatMay ** open ResMay, Prelude in {
   --   } ;
 
   -- : CN -> RS  -> CN ;
-  -- RelCN cn rs = cn ** {
-  --   } ;
+  RelCN cn rs = cn ** {
+    s = \\nf => cn.s ! nf ++ rs.subj ++ rs.pred ! P3
+    } ;
 
 {-
   -- : CN -> Adv -> CN ;