=Corrected DetQuant for no_Quant

This commit is contained in:
David Bamutura
2019-05-19 08:44:30 +02:00
parent 9b0cbc63ec
commit 3aef8a9f7e
3 changed files with 16 additions and 4 deletions
+7
View File
@@ -20,6 +20,13 @@ lin
Neg => (mkSubjClitic (AgMUBAP2 Sg)) ++ imp.s!ImpNeg
}
};--: Pol -> Imp -> Utt ; -- (do not) walk ----s
--UttImpPl : Pol -> Imp -> Utt ; -- (don't) love yourselves
UttImpPl pol imp ={s =
case pol.p of {
Pos => imp.s!ImpPos;
Neg => (mkSubjClitic (AgMUBAP2 Pl)) ++ imp.s!ImpNeg
}
};
{-
--1 Phrase: Phrases and Utterances