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/PhrasebookFre.gf | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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

diff --git a/examples/phrasebook/PhrasebookFre.gf b/examples/phrasebook/PhrasebookFre.gf
index b14d35eec..1c7b7a4c2 100644
--- a/examples/phrasebook/PhrasebookFre.gf
+++ b/examples/phrasebook/PhrasebookFre.gf
@@ -4,12 +4,10 @@ concrete PhrasebookFre of Phrasebook =
   GreetingsFre,
   WordsFre
   ** open 
-    (R = Roles),
     SyntaxFre,
     Prelude in {
 
 lin
-  PGreeting p g = mkText (lin Text (ss (g.s ! p.p ! R.Male ! R.Male))) (lin Text (ss p.s)) ;
-----  PGreeting p s h g = mkPhrase (g.s ! p.p ! s.g ! h.g ++ p.s ++ s.s ++ h.s) ;
+  PGreeting g = lin Text (ss g.s) ;
   
 }
-- 
cgit v1.2.3