mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-04 08:42:50 -06:00
simplified the treatment of politeness in Phrasebook
This commit is contained in:
@@ -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} ;
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user