diff options
| author | aarne <aarne@chalmers.se> | 2010-03-30 18:48:59 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-03-30 18:48:59 +0000 |
| commit | 5cb147fa19fdd348a24bc9d90fc8b5a6041530d8 (patch) | |
| tree | 73a42a9aa38df413443e2a8a730e8e669f70604d /examples/phrasebook/SentencesFre.gf | |
| parent | de909a4e44419562ca4ba071e15cf9b8e00288be (diff) | |
simplified the treatment of politeness in Phrasebook
Diffstat (limited to 'examples/phrasebook/SentencesFre.gf')
| -rw-r--r-- | examples/phrasebook/SentencesFre.gf | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/examples/phrasebook/SentencesFre.gf b/examples/phrasebook/SentencesFre.gf index 3402c2db0..c4bbc842f 100644 --- a/examples/phrasebook/SentencesFre.gf +++ b/examples/phrasebook/SentencesFre.gf @@ -4,9 +4,7 @@ concrete SentencesFre of Sentences = NumeralFre ** SentencesI - [WhetherIs, QAct (Syntax = SyntaxFre) ** open SyntaxFre, ExtraFre in { 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}} ; + WhetherIs item quality = lin QS {s = \\_ => (EstcequeS (mkS (mkCl item quality))).s} ; + QAction a = lin QS {s = \\_ => (EstcequeS (mkS a)).s} ; } |