(Som) Add simple y/n-questions

This commit is contained in:
Inari Listenmaa
2019-06-28 14:52:14 +02:00
parent ef13412a66
commit 890e29f628
6 changed files with 20 additions and 22 deletions
+1 -1
View File
@@ -4,7 +4,7 @@ concrete PhraseSom of Phrase = CatSom ** open Prelude, ResSom in {
PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
UttS s = s ;
-- UttQS qs = qs ;
UttQS qs = qs ;
UttImpSg pol imp =
let ma = case pol.p of { Pos => [] ; Neg => "ma" }