(Som) Restructure relatives and questions

2019-09-03 16:40:12 +02:00
parent c42d3e33e9
commit 8ac75e8550
8 changed files with 156 additions and 197 deletions
@@ -27,9 +27,9 @@ lin
      vComp = vc ** { -- The whole previous VP becomes the subordinate clause
                subcl = \\agr => 
                          let subj = pronTable ! agr ;
-                              cls = predVPSlash subj vp ;
-                              rcl = mergeRCl (cls.s ! True) ;
-                           in "in" ++ rcl.s ! Pres ! Simul ! Pos
+                              cls = predVPslash subj vp ;
+                              scl = cl2sentence True cls ;
+                           in scl.s ! Pres ! Simul ! Pos
              }
      } ;