From 0e2fdd3a73675973d4fa4cb0a274e705fa37f98b Mon Sep 17 00:00:00 2001 From: Aarne Ranta Date: Thu, 16 Jan 2020 17:39:45 +0100 Subject: [PATCH] added a missing case to mkQCl in the API --- doc/example-tables.gfs | 3 +++ src/api/Constructors.gf | 2 ++ 2 files changed, 5 insertions(+) diff --git a/doc/example-tables.gfs b/doc/example-tables.gfs index 45111c36b..256d044f3 100644 --- a/doc/example-tables.gfs +++ b/doc/example-tables.gfs @@ -4,3 +4,6 @@ gt MkDocument (NoDefinition "") (InflectionN ?) "" | l | wf -file="example-table gt MkDocument (NoDefinition "") (InflectionA ?) "" | l | wf -append -file="example-tables.html" gt MkDocument (NoDefinition "") (InflectionV ?) "" | l | wf -append -file="example-tables.html" gt MkDocument (NoDefinition "") (InflectionV2 ?) "" | l | wf -append -file="example-tables.html" +gt MkDocument (NoDefinition "") (InflectionV3 ?) "" | l | wf -append -file="example-tables.html" +gt MkDocument (NoDefinition "") (InflectionVV ?) "" | l | wf -append -file="example-tables.html" +gt MkDocument (NoDefinition "") (InflectionV2V ?) "" | l | wf -append -file="example-tables.html" diff --git a/src/api/Constructors.gf b/src/api/Constructors.gf index 6e9816024..b9f696d5a 100644 --- a/src/api/Constructors.gf +++ b/src/api/Constructors.gf @@ -1180,6 +1180,8 @@ incomplete resource Constructors = open Grammar in { --% = \a,p -> TUseQCl TPres a p ; --% mkQS : (Tense) -> (Ant) -> (Pol) -> QCl -> QS -- who wouldn't have slept = TUseQCl ; --% + mkQS : Temp -> Pol -> QCl -> QS -- who wouldn't have slept --% + = UseQCl ; --% -- Since 'yes-no' question clauses can be built from clauses (see below), -- we give a shortcut