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

This commit is contained in:
Inari Listenmaa
2019-07-26 22:20:00 +03:00
parent e4bc20e482
commit 99e7e61863
6 changed files with 33 additions and 24 deletions
+2 -1
View File
@@ -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.