updated createSentence/add defaultSentence

2019-11-12 14:48:54 +01:00
parent f46cbfe51e
commit 6864f61e92
6 changed files with 76 additions and 28 deletions
@@ -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 ! CPreV ! SOV };
+    UttS s = { s = defaultSentence s ! SOV };

 --  UttQS : QS -> Utt
    UttQS qs = {s = qs.s ! QDir } ;