(Som) Make Cl, S etc. discontinuous, to add Subj to the right place

2019-07-26 22:20:00 +03:00
parent e4bc20e482
commit 99e7e61863
6 changed files with 33 additions and 24 deletions
@@ -24,7 +24,8 @@ lin
 -- Subordinate clauses can function as adverbs.

    -- : Subj -> S -> Adv ;
-  SubjS subj s = mkAdv (subj.s ++ s.s ! True) ;
+  SubjS subj s = let subs = s.s ! True in
+    mkAdv (subs.beforeSTM ++ subj.s ++ subs.afterSTM) ;

 -- Comparison adverbs also work as numeral adverbs.