From 5cb147fa19fdd348a24bc9d90fc8b5a6041530d8 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 30 Mar 2010 18:48:59 +0000
Subject: simplified the treatment of politeness in Phrasebook

---
 examples/phrasebook/SentencesFre.gf | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'examples/phrasebook/SentencesFre.gf')

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} ;
 
 }
-- 
cgit v1.2.3