(Ara) Add subordinate clauses

2018-11-16 17:21:29 +01:00
parent c4f207a541
commit 5a6fe1e336
8 changed files with 30 additions and 25 deletions
@@ -19,7 +19,7 @@ concrete PhraseAra of Phrase = CatAra ** open
    UttCN cn = {s = ResAra.uttCN cn } ; --IL
    UttNP np = {s = \\_ => np.s ! Nom} ;
    UttVP vp = {s = uttVP vp} ; --IL
-    UttS,
+    UttS s = {s = \\_ => s.s ! Verbal} ;
    UttAdv,
    UttIAdv = \s -> {s = \\_ => s.s} ; ---- OK? AR
 --