diff --git a/lib/src/api/Constructors.gf b/lib/src/api/Constructors.gf index 68169e638..4970d64a4 100644 --- a/lib/src/api/Constructors.gf +++ b/lib/src/api/Constructors.gf @@ -275,6 +275,14 @@ incomplete resource Constructors = open Grammar in { --% conditionalTense : Tense -- she would sleep --# notpresent --: = TCond ; --# notpresent --% +--3 Temp, temporal and aspectual features + +-- Temp is a combination of Tense and Ant. In extra modules for some +-- languages, it can also involve aspect and other things. + + mkTemp : Tense -> Ant -> Temp + = TTAnt ; --% + --3 ImpForm, imperative form -- Imperative form is a parameter that sets the form of imperative diff --git a/lib/src/english/SentenceEng.gf b/lib/src/english/SentenceEng.gf index adee292a8..c8018fc9b 100644 --- a/lib/src/english/SentenceEng.gf +++ b/lib/src/english/SentenceEng.gf @@ -12,7 +12,7 @@ concrete SentenceEng of Sentence = CatEng ** open Prelude, ResEng in { s = \\pol,n => let agr = AgP2 (numImp n) ; - verb = infVP VVInf vp agr ; + verb = infVP VVAux vp agr ; dont = case pol of { CNeg True => "don't" ; CNeg False => "do" ++ "not" ;