make complememt position flexible

This commit is contained in:
Herbert Lange
2019-03-23 23:39:44 +01:00
parent 76c1c2453e
commit de82d4b35b
6 changed files with 43 additions and 31 deletions
+1 -1
View File
@@ -3,7 +3,7 @@ concrete PhraseLat of Phrase = CatLat ** open Prelude, ResLat in {
PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
--
-- UttS : S -> Utt
UttS s = { s = combineSentence s ! SPreS ! PreS ! SOV };
UttS s = { s = combineSentence s ! SPreS ! PreS ! CPreV ! SOV };
-- UttQS : QS -> Utt
UttQS qs = {s = qs.s ! QDir } ;