simplified the treatment of politeness in Phrasebook

2010-03-30 18:48:59 +00:00
parent 0e91a4d84d
commit 66cca22f38
24 changed files with 157 additions and 183 deletions
--- a/examples/phrasebook/PhrasebookEng.gf
+++ b/examples/phrasebook/PhrasebookEng.gf
@@ -3,11 +3,10 @@
 concrete PhrasebookEng of Phrasebook = 
  GreetingsEng,
  WordsEng ** open 
-    (R = Roles),
    SyntaxEng,
    Prelude in {

 lin
-  PGreeting p g = mkText (lin Text g) (lin Text (ss p.s)) ;
+  PGreeting g = lin Text g ;

 }