started relative clauses

2024-07-25 18:23:35 +02:00
parent b1a5cf93b6
commit 5135e5c5ca
8 changed files with 54 additions and 14 deletions
@@ -12,7 +12,7 @@ concrete SentenceTur of Sentence = CatTur ** open Prelude, ResTur in {

    UseQCl _ _ = variants {} ;

-    UseRCl _ _ _ = variants {} ;
+    UseRCl temp pol cl = {s = \\agr => temp.s ++ pol.s ++ cl.s ! temp.t ! pol.p ! agr} ;

    SlashVP _ _ = variants {} ;
    AdvSlash _ _ = variants {} ;