summaryrefslogtreecommitdiff
path: root/examples/phrasebook/SentencesFre.gf
diff options
context:
space:
mode:
Diffstat (limited to 'examples/phrasebook/SentencesFre.gf')
-rw-r--r--examples/phrasebook/SentencesFre.gf9
1 files changed, 6 insertions, 3 deletions
diff --git a/examples/phrasebook/SentencesFre.gf b/examples/phrasebook/SentencesFre.gf
index d4415e74a..3402c2db0 100644
--- a/examples/phrasebook/SentencesFre.gf
+++ b/examples/phrasebook/SentencesFre.gf
@@ -1,9 +1,12 @@
-concrete SentencesFre of Sentences = NumeralFre ** SentencesI - [WhetherIs]
+concrete SentencesFre of Sentences = NumeralFre ** SentencesI - [WhetherIs, QAction]
with
(DiffPhrasebook = DiffPhrasebookFre),
(Syntax = SyntaxFre) ** open SyntaxFre, ExtraFre in {
- lin WhetherIs item quality =
- lin QS {s = \\_ => (EstcequeS (mkS (mkCl item quality))).s} ;
+ lin
+ WhetherIs item quality =
+ {s = \\_ => lin QS {s = \\_ => (EstcequeS (mkS (mkCl item quality))).s}} ;
+ QAction a =
+ {s = \\r => lin QS {s = \\_ => (EstcequeS (mkS (a.s ! r))).s}} ;
}